1! { dg-do compile } 2! PR fortran/42354 3 4use iso_c_binding 5implicit none 6integer, target :: a 7type t 8 type(c_ptr) :: ptr = c_loc(a) ! { dg-error "Intrinsic function 'c_loc' at .1. is not permitted in an initialization expression" } 9end type t 10type(c_ptr) :: ptr2 = c_loc(a) ! { dg-error "Intrinsic function 'c_loc' at .1. is not permitted in an initialization expression" } 11end 12