Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/print_1.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! PR fortran/29403 program p character(len=10) a, b, c integer i i = 1 print ('(I0)'), i a = '(I0,' b = 'I2,' c = 'I4)' call prn(a, b, c, i) print (1,*), i ! { dg-error "in PRINT statement" } end program p subroutine prn(a, b, c, i) integer i character(len=*) a, b, c print (a//(b//c)), i, i, i print trim(a//trim(b//c)), i, i, i end subroutine prn