blob: 793205cf59910094f727de2cfd8535673ccac3b0 [file] [log] [blame]
! { dg-do compile }
! This checks the fix for PR33295 in which the A_type in initA was
! not promoted to module level and so not recognised as being the
! same as that emanating directly from module a.
! Contributed by Janus Weil <>
module A
type A_type
real comp
end type
end module A
module B
function initA()
use A
implicit none
type(A_type):: initA
end function
end module B
program C
use B
use A
implicit none
type(A_type):: A_var
A_var = initA()
end program C