1module m
2  implicit none (type, external)
3  !$omp nothing
4
5  type t
6    !$omp nothing
7    integer s
8  end type
9
10contains
11
12integer function foo (i)
13  integer :: i
14
15  !$omp nothing
16  if (.false.) &
17& &    !$omp nothing
18    i = i + 1
19
20! In the following, '& & !$' is not a valid OpenMP sentinel and,
21! hence, the line is regarded as comment
22  if (.false.) &
23&   & !$omp nothing
24    then
25  end if
26  foo = i
27end
28end module
29