procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fortran: diagnose and reject duplicate CONTIGUOUS attribute [PR108025]

Browse source 
gcc/fortran/ChangeLog:

	PR fortran/108025
	* symbol.cc (gfc_add_contiguous): Diagnose and reject duplicate
	CONTIGUOUS attribute.

gcc/testsuite/ChangeLog:

	PR fortran/108025
	* gfortran.dg/contiguous_12.f90: New test.
This commit is contained in:
Harald Anlauf 2022-12-08 22:50:45 +01:00
parent 7410032a77
commit 3a9f6d5a8e
2 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/symbol.cc
View file

@ -1108,6 +1108,12 @@ gfc_add_contiguous (symbol_attribute *attr, const char *name, locus *where)
if (check_used (attr, name, where))
return false;
if (attr->contiguous)
{
duplicate_attr ("CONTIGUOUS", where);
return false;
}
attr->contiguous = 1;
return gfc_check_conflict (attr, name, where);
}

7
gcc/testsuite/gfortran.dg/contiguous_12.f90 Normal file
View file

@ -0,0 +1,7 @@
! { dg-do compile }
! PR fortran/108025
subroutine foo (x)
real, contiguous :: x(:)
contiguous :: x ! { dg-error "Duplicate CONTIGUOUS attribute" }
end