URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [comma_format_extension_1.f] - Blame information for rev 437

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


! { dg-do compile }
! { dg-options "" }
! test that the extension for a missing comma is accepted
 
      subroutine mysub
      dimension ibar(5)
      write (3,1001) ( ibar(m), m = 1, 5 )
 
 1001 format (/5x,' ',i4' '/ )
      return
      end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "" }`
3			`! test that the extension for a missing comma is accepted`
4
5			`subroutine mysub`
6			`dimension ibar(5)`
7			`write (3,1001) ( ibar(m), m = 1, 5 )`
8
9			`1001 format (/5x,' ',i4' '/ )`
10			`return`
11			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [comma_format_extension_1.f] - Blame information for rev 437