mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
14 lines
361 B
Fortran
14 lines
361 B
Fortran
! { dg-do compile }
|
|
! Original code from Gerhard Steinmetz
|
|
! Gerhard dot Steinmetz for fortran at t-online dot de
|
|
! PR fortran/68019
|
|
!
|
|
program p
|
|
integer :: i
|
|
type t
|
|
integer :: n
|
|
end type
|
|
type(t), parameter :: vec(*) = [(t(i), i = 1, 4)]
|
|
type(t), parameter :: arr(*) = reshape(vec, [2, 2]) ! { dg-error "ranks 1 and 2 in assignment" }
|
|
end
|