Daily bump.

[gcc-git-mirror.git] / libgomp / testsuite / libgomp.fortran / tabs2.f

! { dg-options "-ffixed-form" }
      if (b().ne.2) stop 1
      contains
      subroutine a
!$omp parallel
!$omp   end     parallel
        end subroutine a
      function b()
      integer :: b
        b = 1
!$      b = 2
      end function b
      end