URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
!
! PR libfortran/19155
! We accept 'E+00' as a valid real number. The standard says it is not,
! but doesn't require us to issue an error. Since g77 accepts this as zero,
! we do the same.
      real a
      character*10 c
      a = 42
      open (19,status='scratch')
      write (19,'(A15)') 'E+00'
      rewind (19)
      read (19,'(E15.8)') a
      if (a .ne. 0) call abort
      close (19)
 
      c = "+         "
      read (c,"(F10.4)") a
      if (a /= 0) call abort
      end

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`

Browse

Tools

Subversion Repositories openrisc

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