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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [assign_4.f] - Blame information for rev 708

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


! { dg-do compile }
! Option passed to avoid excess errors from obsolete warning
! { dg-options "-w" }
! PR17423
      program testit
c
      assign 12 to i
      write(*, i)
 0012 format (" **** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE ****" )
      end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Option passed to avoid excess errors from obsolete warning`
3			`! { dg-options "-w" }`
4			`! PR17423`
5			`program testit`
6			`c`
7			`assign 12 to i`
8			`write(*, i)`
9			`0012 format (" ** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE **" )`
10			`end`
11

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [assign_4.f] - Blame information for rev 708