1	if (b().ne.2) stop 1
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