mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
12 lines
285 B
Fortran
12 lines
285 B
Fortran
! { 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
|