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