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/] [comma_format_extension_2.f] - Blame information for rev 199

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


! { dg-do compile }
! 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' '/ ) ! { dg-warning "Missing comma" }
      return
      end

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

Browse

Tools

Subversion Repositories openrisc_me

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