33 lines
546 B
Fortran
33 lines
546 B
Fortran
|
! { dg-do compile }
|
||
|
! Test fix for F95 part of PR39800, in which the host association of the type 't1'
|
||
|
! generated an error.
|
||
|
!
|
||
|
! Reported to clf by Alexei Matveev <Alexei Matveev@gmail.com> and reported by
|
||
|
! Tobias Burnus <burnus@gcc.gnu.org>
|
||
|
!
|
||
|
module m
|
||
|
implicit none
|
||
|
private
|
||
|
|
||
|
type :: t1
|
||
|
integer :: i
|
||
|
end type
|
||
|
|
||
|
type :: t2
|
||
|
type(t1) :: j
|
||
|
end type
|
||
|
|
||
|
contains
|
||
|
|
||
|
subroutine sub()
|
||
|
implicit none
|
||
|
|
||
|
type :: t3
|
||
|
type(t1) :: j
|
||
|
end type
|
||
|
|
||
|
end subroutine
|
||
|
|
||
|
end module
|
||
|
! { dg-final { cleanup-modules "m" } }
|