blob: da334dc419e4458b40c66a5ede53140a87ad523a [file] [log] [blame]
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