diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/blockdata_7.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/blockdata_7.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/blockdata_7.f90 b/gcc/testsuite/gfortran.dg/blockdata_7.f90 new file mode 100644 index 0000000000..b7de9642cd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/blockdata_7.f90 @@ -0,0 +1,16 @@ +! { dg-do compile } +! +! PR fortran/55444 +! +! Contributed by Henrik Holst +! + BLOCKDATA +! USE ISO_C_BINDING, ONLY: C_INT, C_FLOAT ! WORKS + USE :: ISO_C_BINDING ! FAILS + INTEGER(C_INT) X + REAL(C_FLOAT) Y + COMMON /FOO/ X,Y + BIND(C,NAME='fortranStuff') /FOO/ + DATA X /1/ + DATA Y /2.0/ + END BLOCKDATA |