Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/string_compare_3.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
! { dg-do run } ! PR fortran/37099 ! Check for correct results when comparing array-section-substrings. ! This is the test from comment #1 of the PR. ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr> integer, parameter :: n = 10 integer, parameter :: ilst(n) = (/(i,i=1,n)/) character(*), parameter :: c0lst(n) = (/(char(96+i),i=1,n)/) character(*), parameter :: c1lst(n) = (/(char(96+i)//'b',i=1,n)/) logical :: tmp(n) i = 5 print *, ilst(:) == i print *, c0lst(:)(1:1) == char(96+i) tmp = c1lst(:)(1:1) == char(96+i) print *, tmp print *, c1lst(:)(1:1) == 'e' if (any(tmp .neqv. (c0lst(:)(1:1) == char(96+i)))) STOP 1 end