------- Additional Comments From pinskia at gcc dot gnu dot org 2005-06-27
17:13 -------
Here is a reduced testcase:
MODULE module1
TYPE type1
INTEGER TYP1
END TYPE type1
END MODULE
MODULE module2
TYPE type2
INTEGER TYP2
END TYPE type2
END MODULE
MODULE mymodule
CONTAINS
SUBROUTINE SUB1()
IMPLICIT NONE
END SUBROUTINE SUB1
SUBROUTINE SUB2(T_TYPE1, T_TYPE2)
USE module1
USE module2
IMPLICIT NONE
TYPE (type1):: T_TYPE1
TYPE (type2) T_TYPE2(T_TYPE1%TYP1)
END SUBROUTINE SUB2
END MODULE
SUBROUTINE A_SUBROUTINE
USE mymodule
END SUBROUTINE A_SUBROUTINE
Oh, this is a dup of bug 19669.
*** This bug has been marked as a duplicate of 19669 ***
--
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
Resolution| |DUPLICATE
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21986
