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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [stoppause.f90] - Blame information for rev 303

Details | Compare with Previous | View Log


! Program to check the STOP and PAUSE intrinsics
program stoppause
 
  pause
  pause 1
  pause 'Hello world'
  stop
  stop 42
  stop 'Go away'
end program

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Program to check the STOP and PAUSE intrinsics`
2			`program stoppause`
3
4			`pause`
5			`pause 1`
6			`pause 'Hello world'`
7			`stop`
8			`stop 42`
9			`stop 'Go away'`
10			`end program`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [stoppause.f90] - Blame information for rev 303