gcc/testsuite/gfortran.dg/pr69398.f90

   1 ! { dg-do compile }
   2 ! PR fortran/69398
   3 ! Contributed by Gerhard Steinmetz
   4 program p
   5    type t
   6    end type
   7    class(t), allocatable :: z(:)
   8    target :: z(:)    ! { dg-error "Duplicate DIMENSION attribute" }
   9    allocate (z(2))
  10 end
  11