mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
13 lines
160 B
Fortran
13 lines
160 B
Fortran
! PR fortran/67496
|
|
! { dg-do compile }
|
|
|
|
type :: a
|
|
end type a
|
|
type :: b
|
|
type (a) :: j(1)
|
|
end type b
|
|
type(a) :: x
|
|
type(b) :: y
|
|
y = b((/x/))
|
|
end
|