| ! { dg-do compile } | |
| ! PR fortran/101329 - ICE: Invalid expression in gfc_element_size | |
| program p | |
| use iso_c_binding | |
| implicit none | |
| integer(c_int), pointer :: ip4 | |
| integer(c_int64_t), pointer :: ip8 | |
| print *, c_sizeof (c_null_ptr) ! valid | |
| print *, c_sizeof (null ()) ! { dg-error "is not interoperable" } | |
| print *, c_sizeof (null (ip4)) ! valid | |
| print *, c_sizeof (null (ip8)) ! valid | |
| end |