Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_len.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! Program to test the LEN intrinsic program test character(len=10) a character(len=8) w type person character(len=10) name integer age end type person type(person) Tom integer n a = w (n) if ((a .ne. "01234567") .or. (n .ne. 8)) STOP 1 if (len(Tom%name) .ne. 10) STOP 2 call array_test() end function w(i) character(len=8) w integer i w = "01234567" i = len(w) end ! This is the testcase from PR 15211 converted to a subroutine subroutine array_test implicit none character(len=10) a(4) if (len(a) .NE. 10) STOP 1 end subroutine array_test