OSDN Git Service

2012-06-14 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 14 Jun 2012 13:00:50 +0000 (13:00 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 14 Jun 2012 13:00:50 +0000 (13:00 +0000)
        PR fortran/53597
        * decl.c (match_attr_spec): Only mark module variables
        as SAVE_IMPLICIT for Fortran 2008 and later.

2012-06-14  Tobias Burnus  <burnus@net-b.de>

        PR fortran/53597
        * gfortran.dg/save_4.f90: New.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@188614 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/decl.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/save_4.f90 [new file with mode: 0644]

index eadf64b..145238b 100644 (file)
@@ -1,3 +1,9 @@
+2012-06-14  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/53597
+       * decl.c (match_attr_spec): Only mark module variables
+       as SAVE_IMPLICIT for Fortran 2008 and later.
+
 2012-06-14  Release Manager
 
        * GCC 4.7.1 released.
index 43c558a..8afccd5 100644 (file)
@@ -3786,8 +3786,9 @@ match_attr_spec (void)
        }
     }
 
-  /* Module variables implicitly have the SAVE attribute.  */
-  if (gfc_current_state () == COMP_MODULE && !current_attr.save)
+  /* Since Fortran 2008 module variables implicitly have the SAVE attribute.  */
+  if (gfc_current_state () == COMP_MODULE && !current_attr.save
+      && (gfc_option.allow_std & GFC_STD_F2008) != 0)
     current_attr.save = SAVE_IMPLICIT;
 
   colon_seen = 1;
index 36f2376..67579f5 100644 (file)
@@ -1,3 +1,8 @@
+2012-06-14  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/53597
+       * gfortran.dg/save_4.f90: New.
+
 2012-06-14  Richard Guenther  <rguenther@suse.de>
 
        Backport from mainline
diff --git a/gcc/testsuite/gfortran.dg/save_4.f90 b/gcc/testsuite/gfortran.dg/save_4.f90
new file mode 100644 (file)
index 0000000..74ea6e8
--- /dev/null
@@ -0,0 +1,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