OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes] 

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  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.

From-SVN: r183370
This commit is contained in:
Steven G. Kargl 2012-01-21 17:32:12 +00:00
parent 076ec830bf
commit bb3a6981bf
5 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
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

7
gcc/fortran/symbol.c
View File

@ -444,12 +444,15 @@ check_conflict (symbol_attribute *attr, const char *name, locus *where)
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;
}

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
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

1
gcc/testsuite/gfortran.dg/namelist_59.f90
View File

@ -16,7 +16,6 @@ subroutine process(string)
integer :: i=1,j=2,k=3
integer ios
namelist /cmd/ i,j,k
save cmd
lines(1)='&cmd'
lines(2)=string
lines(3)='/'

10
gcc/testsuite/gfortran.dg/namelist_74.f90 Normal file
View File

@ -0,0 +1,10 @@
! { 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