Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/intrinsic_actual_4.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 } ! Tests the fix for PR27900, in which an ICE would be caused because ! the actual argument LEN had no type. ! ! Contributed by Klaus Ramstöck <klra67@freenet.de> ! subroutine sub (proc, chr) external proc integer proc character*(*) chr if (proc (chr) .ne. 6) call abort () end subroutine sub implicit none integer i i = len ("123") call sub (len, "abcdef") end