OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr19155.f] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do run }
2
!
3
! PR libfortran/19155
4
! We accept 'E+00' as a valid real number. The standard says it is not,
5
! but doesn't require us to issue an error. Since g77 accepts this as zero,
6
! we do the same.
7
      real a
8
      character*10 c
9
      a = 42
10
      open (19,status='scratch')
11
      write (19,'(A15)') 'E+00'
12
      rewind (19)
13
      read (19,'(E15.8)') a
14
      if (a .ne. 0) call abort
15
      close (19)
16
 
17
      c = "+         "
18
      read (c,"(F10.4)") a
19
      if (a /= 0) call abort
20
      end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.