Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/realloc_on_assign_26.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 } ! PR 68147 - no temprorary within the IF statement. ! Original test case by Martin Reinecke. program test implicit none character(len=:),allocatable ::name name="./a.out" if (index(name,"/") /= 0) THEN name=name(3:) if (name .ne. "a.out") call abort endif end program