mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-14 01:50:35 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/33412 (Bind(C): ELEMENTAL procedure conflicts with BIND(C))

Browse Source 
2007-09-13  Tobias Burnus  <burnus@net-b.de>

	PR fortran/33412
	* symbol.c (check_conflict): Add conflict of ELEMENTAL with Bind(C).

2007-09-13  Tobias Burnus  <burnus@net-b.de>

	PR fortran/33412
	* gfortran.dg/elemental_bind_c.f90: New.

From-SVN: r128471
This commit is contained in:
Tobias Burnus 2007-09-13 19:58:10 +02:00 committed by Tobias Burnus
parent 6ed44ca10a
commit e3bfd8f416
4 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2007-09-13 Tobias Burnus <burnus@net-b.de>
PR fortran/33412
* symbol.c (check_conflict): Add conflict of ELEMENTAL with Bind(C).
2007-09-12 Tobias Burnus <burnus@net-b.de>
PR fortran/33297

1
gcc/fortran/symbol.c
View File

@ -480,6 +480,7 @@ check_conflict (symbol_attribute *attr, const char *name, locus *where)
conf (is_bind_c, cray_pointer);
conf (is_bind_c, cray_pointee);
conf (is_bind_c, allocatable);
conf (is_bind_c, elemental);
/* Need to also get volatile attr, according to 5.1 of F2003 draft.
Parameter conflict caught below. Also, value cannot be specified

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-09-13 Tobias Burnus <burnus@net-b.de>
PR fortran/33412
* gfortran.dg/elemental_bind_c.f90: New.
2007-09-13 Richard Sandiford <richard@codesourcery.com>
* gcc.dg/gcc-have-sync-compare-and-swap.c: Skip for -mflip-mips16.

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

@ -0,0 +1,10 @@
! {dg-do compile }
!
! PR fortran/33412
!
elemental subroutine a() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" }
end subroutine a ! { dg-error "Expecting END PROGRAM" }
elemental function b() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" }
end function b ! { dg-error "Expecting END PROGRAM" }
end