gcc/testsuite/gfortran.dg/save_4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! PR fortran/53597
   5 !
   6 MODULE somemodule
   7   IMPLICIT NONE
   8   TYPE sometype
   9     INTEGER :: i
  10     DOUBLE PRECISION, POINTER, DIMENSION(:,:) :: coef => NULL()
  11   END TYPE sometype
  12   TYPE(sometype) :: somevariable ! { dg-error "Fortran 2008: Implied SAVE for module variable 'somevariable' at .1., needed due to the default initialization" }
  13 END MODULE somemodule