1! { dg-do compile }
2! { dg-options "-std=f2003" }
3!
4! PR fortran/53597
5!
6MODULE 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" }
13END MODULE somemodule
14