* c-cppbuiltin.c (c_cpp_builtins): Change _OPENMP value to

[pf3gnuchains/gcc-fork.git] / libgomp / testsuite / libgomp.fortran / tabs1.f90

        if (b().ne.2) call abort
contains
subroutine a
!$omp parallel
        !$omp   end     parallel
        end subroutine a
function b()
        integer :: b
        b = 1
        !$      b = 2
end function b
        end