Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/50556
* symbol.c (check_conflict): namelist-group-name cannot have the SAVE
attribure.
2012-01-21 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/50556
* gfortran.dg/namelist_74.f90: New test.
* gfortran.dg/namelist_59.f90: Remove SAVE attribute.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183370
138bc75d-0d04-0410-961f-
82ee72b054a4
2012-01-21 Tobias Burnus <burnus@net-b.de>
+ Steven G. Kargl <kargl@gcc.gnu.org>
+
+ PR fortran/50556
+ * symbol.c (check_conflict): namelist-group-name cannot have the SAVE
+ attribure.
+
+2012-01-21 Tobias Burnus <burnus@net-b.de>
PR fortran/51913
* interface.c (compare_parameter): Fix CLASS comparison.
a1 = gfc_code2string (flavors, attr->flavor);
a2 = save;
goto conflict;
-
+ case FL_NAMELIST:
+ gfc_error ("Namelist group name at %L cannot have the "
+ "SAVE attribute", where);
+ return FAILURE;
+ break;
case FL_PROCEDURE:
/* Conflicts between SAVE and PROCEDURE will be checked at
resolution stage, see "resolve_fl_procedure". */
case FL_VARIABLE:
- case FL_NAMELIST:
default:
break;
}
+2012-01-21 Steven G. Kargl <kargl@gcc.gnu.org>
+
+ PR fortran/50556
+ * gfortran.dg/namelist_74.f90: New test.
+ * gfortran.dg/namelist_59.f90: Remove SAVE attribute.
+
2012-01-21 Tobias Burnus <burnus@net-b.de>
PR fortran/51913
integer :: i=1,j=2,k=3
integer ios
namelist /cmd/ i,j,k
- save cmd
lines(1)='&cmd'
lines(2)=string
lines(3)='/'
--- /dev/null
+! { dg-do compile }
+! PR fortran/50556
+subroutine foo
+ save i
+ namelist /i/ ii ! { dg-error "cannot have the SAVE attribute" }
+end subroutine foo
+subroutine bar
+ namelist /i/ ii
+ save i ! { dg-error "cannot have the SAVE attribute" }
+end subroutine bar