Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/test_only_clause.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-additional-sources only_clause_main.c } module testOnlyClause contains subroutine testOnly(cIntPtr) bind(c, name="testOnly") use, intrinsic :: iso_c_binding, only: c_ptr, c_int, c_f_pointer implicit none type(c_ptr), value :: cIntPtr integer(c_int), pointer :: f90IntPtr call c_f_pointer(cIntPtr, f90IntPtr) ! f90IntPtr coming in has value of -11; this will make it -12 f90IntPtr = f90IntPtr - 1 if(f90IntPtr .ne. -12) then call abort() endif end subroutine testOnly end module testOnlyClause