gcc/testsuite/gfortran.dg/pr69398.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
! PR fortran/69398
! Contributed by Gerhard Steinmetz
program p
   type t
   end type
   class(t), allocatable :: z(:)
   target :: z(:)    ! { dg-error "Duplicate DIMENSION attribute" }
   allocate (z(2))
end