1! { dg-do compile } 2! 3! PR fortran/55574 4! The following code used to be accepted because C_LOC pulls in C_PTR 5! implicitly. 6! 7! Contributed by Valery Weber <valeryweber@hotmail.com> 8! 9program aaaa 10 use iso_c_binding, only : c_loc 11 integer, target :: i 12 type(C_PTR) :: f_ptr ! { dg-error "being used before it is defined" } 13 f_ptr=c_loc(i) ! { dg-error "Cannot convert" } 14end program aaaa 15