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