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 708
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log