blob: a018dd53f6000537fdffbdd2c06a9f16a35b3333 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|