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
|