mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
11 lines
307 B
Fortran
11 lines
307 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-std=gnu" }
|
|
! PR fortran/70870
|
|
! Contributed by Vittorio Zecca <zeccav at gmail dot com >
|
|
type t
|
|
integer :: g=0 ! default initialization
|
|
end type
|
|
type(t) :: v2
|
|
data v2/t(2)/ ! { dg-error "default initialization shall not" }
|
|
end
|