===================================================================
@@ -9302,8 +9302,13 @@ gfc_match_save (void)
return MATCH_YES;
syntax:
- gfc_error ("Syntax error in SAVE statement at %C");
- return MATCH_ERROR;
+ if (gfc_current_ns->seen_save)
+ {
+ gfc_error ("Syntax error in SAVE statement at %C");
+ return MATCH_ERROR;
+ }
+ else
+ return MATCH_NO;
}
===================================================================
@@ -0,0 +1,21 @@
+! { dg-do compile }
+! PR fortran/51991
+! Orginal code contributed by Sebastien Bardeau <bardeau at iram dot fr>
+module mymod
+ type :: mytyp
+ integer :: i
+ end type mytyp
+contains
+ subroutine mysub
+ implicit none
+ type(mytyp) :: a
+ integer :: i,j
+ i = a%i
+ !
+ ! Prior to patching gfortran, the following lined generated a syntax
+ ! error with the SAVE statement. Now, gfortran generates an error
+ ! that indicates 'j' is not a component of 'mytyp'.
+ !
+ j = a%j ! { dg-error "is not a member of the" }
+ end subroutine mysub
+end module mymod