mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
26 lines
697 B
Fortran
26 lines
697 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fcoarray=single -std=f2008" }
|
|
! PR 38536 - array sections as arguments to c_loc are illegal.
|
|
use iso_c_binding
|
|
type, bind(c) :: t1
|
|
integer(c_int) :: i(5)
|
|
end type t1
|
|
type, bind(c):: t2
|
|
type(t1) :: t(5)
|
|
end type t2
|
|
type, bind(c) :: t3
|
|
type(t1) :: t(5,5)
|
|
end type t3
|
|
|
|
type(t2), target :: tt
|
|
type(t3), target :: ttt
|
|
integer(c_int), target :: n(3)
|
|
integer(c_int), target :: x[*]
|
|
type(C_PTR) :: p
|
|
|
|
p = c_loc(tt%t%i(1))
|
|
p = c_loc(n(1:2)) ! OK: interop type + contiguous
|
|
p = c_loc(ttt%t(5,1:2)%i(1)) ! FIXME: Noncontiguous (invalid) - compile-time testable
|
|
p = c_loc(x[1]) ! { dg-error "shall not be coindexed" }
|
|
end
|