gcc/testsuite/gfortran.dg/gomp/nothing-1.f90

   1 module m
   2   implicit none (type, external)
   3   !$omp nothing
   4
   5   type t
   6     !$omp nothing
   7     integer s
   8   end type
   9
  10 contains
  11
  12 integer 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
  27 end
  28 end module