Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/char_length_12.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } implicit none character(len=3), dimension(3,3), parameter :: & p = reshape(["xyz", "abc", "mkl", "vpn", "lsd", "epo", "tgv", & "bbc", "wto"], [3,3]) character(len=3), dimension(3,3) :: m1 m1 = p if (any (spread (p, 1, 2) /= spread (m1, 1, 2))) call abort end