gcc/testsuite/gfortran.dg/pr101329.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! { 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