mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 22:11:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/20847 (common block object may not have save attribute)

Browse Source 
2005-10-12  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/20847
	PR fortran/20856
	* symbol.c (check_conflict): Prevent common variables and
	function results from having the SAVE attribute,as required
	by the standard.

2005-10-12  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/20847
	gfortran.dg/save_common.f90: New test.

	PR fortran/20856
	gfortran.dg/save_result.f90: New test.

From-SVN: r105325
This commit is contained in:
Paul Thomas 2005-10-12 20:05:04 +00:00
parent 4def9c5307
commit 96b9572550
5 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@ -1,3 +1,11 @@
2005-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/20847
PR fortran/20856
* symbol.c (check_conflict): Prevent common variables and
function results from having the SAVE attribute,as required
by the standard.
2005-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/24207

3
gcc/fortran/symbol.c
View File

@ -322,6 +322,9 @@ check_conflict (symbol_attribute * attr, const char * name, locus * where)
conf (in_common, dummy);
conf (in_common, allocatable);
conf (in_common, result);
conf (in_common, save);
conf (result, save);
conf (dummy, result);
conf (in_equivalence, use_assoc);

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2005-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/20847
gfortran.dg/save_common.f90: New test.
PR fortran/20856
gfortran.dg/save_result.f90: New test.
2005-10-12 Nathan Sidwell <nathan@codesourcery.com>
PR c++/21592

6
gcc/testsuite/gfortran.dg/save_common.f90 Normal file
View File

@ -0,0 +1,6 @@
! { dg-do compile }
! PR20847 - A common variable may not have the SAVE attribute.
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
INTEGER, SAVE :: X
COMMON /COM/ X ! { dg-error "conflicts with SAVE attribute" }
END

8
gcc/testsuite/gfortran.dg/save_result.f90 Normal file
View File

@ -0,0 +1,8 @@
! { dg-do compile }
! PR20856 - A function result may not have SAVE attribute.
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
FUNCTION X() RESULT(Y)
REAL, SAVE :: Y ! { dg-error "RESULT attribute conflicts with SAVE" }
y = 1
END FUNCTION X
END