1 if (b().ne.2) call abort 2contains 3subroutine a 4!$omp parallel 5 !$omp end parallel 6 end subroutine a 7function b() 8 integer :: b 9 b = 1 10 !$ b = 2 11end function b 12 end 13