URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_f0_1.f90] - Rev 694
Compare with Previous | Blame | View Log
! { dg-do run }! PR39304 write of 0.0 with F0.3 gives **! PR47567 Small absolute values.! Test case developed from case provided by reporter.REAL :: xCHARACTER(80) :: strx = 0.0write (str,'(f0.0)') xif (str.ne."0.") call abortwrite (str,'(f0.1)') xif (str.ne.".0") call abortwrite (str,'(f0.2)') xif (str.ne.".00") call abortwrite (str,'(f0.3)') xif (str.ne.".000") call abortwrite (str,'(f0.4)') xif (str.ne.".0000") call abortwrite (str,'(F0.0)') 0.0if (str.ne."0.") call abortwrite (str,'(F0.0)') 0.001if (str.ne."0.") call abortwrite (str,'(F0.0)') 0.01if (str.ne."0.") call abortwrite (str,'(F0.0)') 0.1if (str.ne."0.") call abortwrite (str,'(F1.0)') -0.0if (str.ne."*") call abortwrite (str,'(F1.0)') 0.001if (str.ne."*") call abortwrite (str,'(F1.0)') 0.01if (str.ne."*") call abortwrite (str,'(F1.0)') 0.1if (str.ne."*") call abortwrite (str,'(F2.0)') -0.001if (str.ne."**") call abortwrite (str,'(F2.0)') -0.01if (str.ne."**") call abortwrite (str,'(F2.0)') -0.1if (str.ne."**") call abortwrite (str,'(F0.2)') 0.0if (str.ne.".00") call abortwrite (str,'(F0.0)') -0.0if (str.ne."-0.") call abortwrite (str,'(F0.1)') -0.0if (str.ne."-.0") call abortwrite (str,'(F0.2)') -0.0if (str.ne."-.00") call abortwrite (str,'(F0.3)') -0.0if (str.ne."-.000") call abortwrite (str,'(F3.0)') -0.0if (str.ne."-0.") call abortwrite (str,'(F2.0)') -0.0if (str.ne."**") call abortwrite (str,'(F1.0)') -0.0if (str.ne."*") call abortwrite (str,'(F0.1)') -0.0if (str.ne."-.0") call abortwrite (str,'(F3.1)') -0.0if (str.ne."-.0") call abortwrite (str,'(F2.1)') -0.0if (str.ne."**") call abortwrite (str,'(F1.1)') -0.0if (str.ne."*") call abortEND