gcc/testsuite/gfortran.dg/c_loc_pure_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wimplicit-interface" }
   3 ! PR 38220 - c_loc is pure and has an explicit interface
   4 USE ISO_C_BINDING, ONLY: C_PTR, C_LOC
   5 CONTAINS
   6   PURE SUBROUTINE F(x)
   7     INTEGER, INTENT(in), TARGET :: x
   8     TYPE(C_PTR) :: px
   9     px = C_LOC(x)
  10   END SUBROUTINE
  11 END