diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/c_kind_tests_3.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/c_kind_tests_3.f03 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/c_kind_tests_3.f03 b/gcc/testsuite/gfortran.dg/c_kind_tests_3.f03 new file mode 100644 index 000000000..5d5f3ab19 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/c_kind_tests_3.f03 @@ -0,0 +1,11 @@ +! { dg-do compile } +! +! PR 47023: [4.6/4.7 regression] C_Sizeof: Rejects valid code +! +! Contributed by <florian.rathgeber@gmail.com> + + use iso_c_binding + real(c_double) x + print *, c_sizeof(x) + print *, c_sizeof(0.0_c_double) +end |