Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/fmt_g0_1.f08 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR36420 Fortran 2008: g0 edit descriptor ! Test case provided by Jerry DeLisle <jvdelisle@gcc.gnu.org> character(25) :: string = "(g0,g0,g0)" character(50) :: buffer write(buffer, '(g0,g0,g0)') ':',12340,':' if (buffer.ne.":12340:") call abort write(buffer, string) ':',0,':' if (buffer.ne.":0:") call abort write(buffer, string) ':',1.0_8/3.0_8,':' if (buffer.ne.":0.33333333333333331:") call abort write(buffer, '(1x,a,g0,a)') ':',1.0_8/3.0_8,':' if (buffer.ne." :0.33333333333333331:") call abort write(buffer, string) ':',"hello",':' if (buffer.ne.":hello:") call abort write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':' if (buffer.ne.":TF:") call abort write(buffer, "(g0,g0,',',g0,g0)") '(',( 1.2345_8, 2.4567_8 ),')' if (buffer.ne."(1.2344999999999999,2.4567000000000001)") call abort end