2 ! Tests the check for PR31292, in which the module procedure
3 ! statement would put the symbol for assign_t in the wrong
4 ! namespace and this caused the interface checking to fail.
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
14 function is_gfortran()
16 interface assignment(=)
17 module procedure assign_t
18 end interface assignment(=)
23 is_gfortran = y(3)%x == 1
24 end function is_gfortran
26 elemental subroutine assign_t(lhs,rhs)
27 type(t), intent(in) :: rhs
28 type(t), intent(out) :: lhs
31 end subroutine assign_t
32 end module chk_gfortran
37 if(.not. is_gfortran()) call abort()
39 ! { dg-final { cleanup-modules "chk_gfortran" } }