Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/fmt_g0_7.f08 @ 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 } ! { dg-options "-std=gnu" } ! PR58722 program testit use ISO_FORTRAN_ENV implicit none integer, parameter :: j(size(real_kinds)+4)=[REAL_KINDS, [4, 4, 4, 4]] character(50) :: astring integer :: i, l, n n = 0 do i=1,size(real_kinds) if (i == 1) then write(astring, '(ru,g0)') 1.0/real(10.0, kind=j(1)) else if (i == 2) then write(astring, '(ru,g0)') 1.0/real(10.0, kind=j(2)) else if (i == 3) then write(astring, '(ru,g0)') 1.0/real(10.0, kind=j(3)) else if (i == 4) then write(astring, '(ru,g0)') 1.0/real(10.0, kind=j(4)) end if if (astring(2:2) /= '9') then l = index(astring, 'E') if (l /= 0) then !print *, i, l, trim(astring) n = n + l end if end if end do if (n /= 0) call abort end program