Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/fmt_colon.f90 @ 127:4c56639505ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }
! PR31395 Colon edit descriptor is ignored.
! Test case derived from PR. Prepared by Jerry DeLisle
! <jvdelisle@gcc.gnu.org>
PROGRAM test
    INTEGER :: i = 1
    character(30) :: astring
    WRITE(astring, 10) i
 10 FORMAT('i =',I2:' this should not print')
    if (astring.ne."i = 1") call abort
    write(astring, 20) i, i
 20 format('i =',I2:' this should print',I2)
    if (astring.ne."i = 1 this should print 1") call abort
END PROGRAM test