Update concepts branch to revision 131834

[official-gcc.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