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

Subversion Repositories openrisc

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

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


! PR libfortran/15332 and PR fortran/13257
! We used to accept this as an extension but
! did do the correct thing at runtime.
! Note the missing , before i1 in the format.
! { dg-do run }
! { dg-options "" }
      character*12 c
 
      write (c,100) 0, 1
      if (c .ne. 'i = 0, j = 1') call abort
 
      write (c,100) 0
      if (c .ne. 'i = 0       ') call abort
 
 100  format ('i = 'i1,:,', j = ',i1)
      end

Line No.	Rev	Author	Line
1	149	jeremybenn	`! PR libfortran/15332 and PR fortran/13257`
2			`! We used to accept this as an extension but`
3			`! did do the correct thing at runtime.`
4			`! Note the missing , before i1 in the format.`
5			`! { dg-do run }`
6			`! { dg-options "" }`
7			`character*12 c`
8
9			`write (c,100) 0, 1`
10			`if (c .ne. 'i = 0, j = 1') call abort`
11
12			`write (c,100) 0`
13			`if (c .ne. 'i = 0 ') call abort`
14
15			`100 format ('i = 'i1,:,', j = ',i1)`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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