OSDN Git Service

f7b5e299567083e0dc20440b5e82e37eaac1743f
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / assumed_size_dt_dummy.f90
1 ! { dg-do compile }
2 ! PR20853 - No array size information for initializer.
3 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
4 MODULE TEST
5 TYPE init
6 INTEGER :: I=0
7 END TYPE init
8 CONTAINS
9 SUBROUTINE try(A) ! { dg-error "cannot have a default initializer" }
10   TYPE(init), DIMENSION(*), INTENT(OUT) :: A
11 END SUBROUTINE try
12 END MODULE TEST
13 END