Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
6 ! 6 !
7 subroutine sub (proc, chr) 7 subroutine sub (proc, chr)
8 external proc 8 external proc
9 integer proc 9 integer proc
10 character*(*) chr 10 character*(*) chr
11 if (proc (chr) .ne. 6) call abort () 11 if (proc (chr) .ne. 6) STOP 1
12 end subroutine sub 12 end subroutine sub
13 13
14 implicit none 14 implicit none
15 integer i 15 integer i
16 intrinsic len
16 i = len ("123") 17 i = len ("123")
17 call sub (len, "abcdef") 18 call sub (len, "abcdef")
18 end 19 end