Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/array_assignment_5.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 84e7813d76e9
children
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') STOP 1
END PROGRAM test