Fix gcc.c-torture/execute/ieee/cdivchkf.c on hpux

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

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