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