gcc/testsuite/gfortran.dg/pr70870_1.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }
! 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