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