summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/tabs2.f
blob: 7aed5498d34e467622f3d42a8ccccee881c40148 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { dg-options "-ffixed-form" }
      if (b().ne.2) call abort
      contains
      subroutine a
!$omp parallel
!$omp	end	parallel
	end subroutine a
      function b()
      integer :: b
	b = 1
!$	b = 2
      end function b
      end