gcc/testsuite/gfortran.dg/pr106945.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
! { dg-options "-fcoarray=single -fcheck=bounds -ftrapv" }
! PR fortran/106945
! Contributed by G. Steinmetz

module m
  implicit none
  type t
     class(*), allocatable :: a[:]
  end type
end