! { dg-do compile } ! { dg-options "-Wimplicit-interface" } ! PR 38220 - c_loc is pure and has an explicit interface USE ISO_C_BINDING, ONLY: C_PTR, C_LOC CONTAINS PURE SUBROUTINE F(x) INTEGER, INTENT(in), TARGET :: x TYPE(C_PTR) :: px px = C_LOC(x) END SUBROUTINE END