1! { dg-options "-ffixed-form" }
2      if (b().ne.2) STOP 1
3      contains
4      subroutine a
5!$omp parallel
6!$omp	end	parallel
7	end subroutine a
8      function b()
9      integer :: b
10	b = 1
11!$	b = 2
12      end function b
13      end
14