Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/c_loc_test_17.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "" } ! ! PR fortran/56378 ! PR fortran/52426 ! ! Contributed by David Sagan & Joost VandeVondele ! module t use, intrinsic :: iso_c_binding interface fvec2vec module procedure int_fvec2vec end interface contains function int_fvec2vec (f_vec, n) result (c_vec) integer f_vec(:) integer(c_int), target :: c_vec(n) end function int_fvec2vec subroutine lat_to_c (Fp, C) bind(c) integer, allocatable :: ic(:) call lat_to_c2 (c_loc(fvec2vec(ic, n1_ic))) ! { dg-error "Argument X at .1. to C_LOC shall have either the POINTER or the TARGET attribute" } end subroutine lat_to_c end module use iso_c_binding print *, c_loc([1]) ! { dg-error "Argument X at .1. to C_LOC shall have either the POINTER or the TARGET attribute" } end