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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [error_stop_1.f08] - Blame information for rev 858


! { dg-do run }
program stopper
  real, dimension(5,5,5) :: i
  error stop size(i) ! { dg-shouldfail "ERROR STOP 125" }
end program stopper

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`program stopper`
3			`real, dimension(5,5,5) :: i`
4			`error stop size(i) ! { dg-shouldfail "ERROR STOP 125" }`
5			`end program stopper`