summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/c_loc_pure_1.f90
blob: 911f5429d4c6b5a36d68ef0d3a73cae8896fb6e7 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { 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