2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr70870_1.f90

! { 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