diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr32601_1.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr32601_1.f03 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr32601_1.f03 b/gcc/testsuite/gfortran.dg/pr32601_1.f03 new file mode 100644 index 000000000..3e9aa7384 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr32601_1.f03 @@ -0,0 +1,10 @@ +! { dg-do compile } +! PR fortran/32601 +use, intrinsic :: iso_c_binding, only: c_loc, c_ptr +implicit none + +! This was causing an ICE, but is an error because the argument to C_LOC +! needs to be a variable. +print *, c_loc(4) ! { dg-error "not a variable" } + +end |