libgomp/testsuite/libgomp.fortran/tabs2.f

   1 ! { dg-options "-ffixed-form" }
   2       if (b().ne.2) call abort
   3       contains
   4       subroutine a
   5 !$omp parallel
   6 !$omp   end     parallel
   7         end subroutine a
   8       function b()
   9       integer :: b
  10         b = 1
  11 !$      b = 2
  12       end function b
  13       end