Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/array_assignment_5.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 } ! { dg-options "-ffrontend-optimize" } ! PR 62214 - this used to give the wrong result. ! Original test case by Oliver Fuhrer PROGRAM test IMPLICIT NONE CHARACTER(LEN=20) :: fullNames(2) CHARACTER(LEN=255) :: pathName CHARACTER(LEN=5) :: fileNames(2) pathName = "/dir1/dir2/" fileNames = (/ "file1", "file2" /) fullNames = SPREAD(TRIM(pathName),1,2) // fileNames if (fullNames(1) /= '/dir1/dir2/file1' .or. & & fullnames(2) /= '/dir1/dir2/file2') call abort END PROGRAM test