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