gcc/testsuite/gfortran.dg/parameter_data.f90

   1 ! { dg-do compile }
   2 ! PR fortran/49278 - ICE when combining DATA with default initialization
   3
   4 program p
   5   implicit none
   6   type t
   7      real :: a
   8   end type t
   9   integer, parameter :: b = 42
  10   type(t), parameter :: z = t(4.0)
  11   data b   / 666 / ! { dg-error "shall not appear in a DATA statement" }
  12   data z%a / 3.0 / ! { dg-error "shall not appear in a DATA statement" }
  13 end