diff options
| author | Nicolas Koenig <koenigni@student.ethz.ch> | 2017-03-22 20:08:36 +0100 |
|---|---|---|
| committer | Nicolas Koenig <koenigni@gcc.gnu.org> | 2017-03-22 19:08:36 +0000 |
| commit | 9cdf0363039a61e0949c88435436918d432201c3 (patch) | |
| tree | f98b366c64f89986edac18d1d1a9efa47654ec24 /gcc | |
| parent | e59a225fe0a305e814bcfdd3f16bd98f97333b15 (diff) | |
| download | gcc-9cdf0363039a61e0949c88435436918d432201c3.zip gcc-9cdf0363039a61e0949c88435436918d432201c3.tar.gz gcc-9cdf0363039a61e0949c88435436918d432201c3.tar.bz2 | |
re PR fortran/39239 (Reject SAVEd variables EQUIVALENCEd to a COMMON)
2017-03-22 Nicolas Koenig <koenigni@student.ethz.ch>
PR fortran/39239
* gfortran.dg/equiv_constraint_bind_c.f90: New test.
From-SVN: r246405
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/equiv_constraint_bind_c.f90 | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2ad0670..555671f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-03-22 Nicolas Koenig <koenigni@student.ethz.ch> + + PR fortran/39239 + * gfortran.dg/equiv_constraint_bind_c.f90: New test. + 2017-03-22 Jakub Jelinek <jakub@redhat.com> PR c++/80141 diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_bind_c.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_bind_c.f90 new file mode 100644 index 0000000..4826475 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/equiv_constraint_bind_c.f90 @@ -0,0 +1,11 @@ +! Testcase for using EQUIVALENCE with BIND(C) +! See PR fortran/39239 +! { dg-do compile } +module m + use iso_c_binding + implicit none + integer(c_int) :: i1, i2 + bind(C) :: i2 + equivalence(i1,i2) ! { dg-error "EQUIVALENCE attribute conflicts with BIND" } +end module m + |