blob: 911f5429d4c6b5a36d68ef0d3a73cae8896fb6e7 [file] [log] [blame]
! { 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