libgomp/testsuite/libgomp.fortran/tabs1.f90

   1         if (b().ne.2) call abort
   2 contains
   3 subroutine a
   4 !$omp parallel
   5         !$omp   end     parallel
   6         end subroutine a
   7 function b()
   8         integer :: b
   9         b = 1
  10         !$      b = 2
  11 end function b
  12         end