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.dg/] [mvbits_5.f90] - Blame information for rev 378

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


! { dg-do run }
 
! PR fortran/38887
! This aborted at runtime for the runtime zero-sized array arguments.
 
! Contributed by Dick Hendrickson 
 
program try_ya0013
  integer ida(9)
  call ya0013(ida,1,5,6)
end program
 
SUBROUTINE YA0013(IDA,nf1,nf5,nf6)
  INTEGER IDA(9)
  IDA = 1
  CALL MVBITS(IDA(NF5:NF1), 0, 1, IDA(NF6:NF1),2)
END SUBROUTINE

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2
3			`! PR fortran/38887`
4			`! This aborted at runtime for the runtime zero-sized array arguments.`
5
6			`! Contributed by Dick Hendrickson`
7
8			`program try_ya0013`
9			`integer ida(9)`
10			`call ya0013(ida,1,5,6)`
11			`end program`
12
13			`SUBROUTINE YA0013(IDA,nf1,nf5,nf6)`
14			`INTEGER IDA(9)`
15			`IDA = 1`
16			`CALL MVBITS(IDA(NF5:NF1), 0, 1, IDA(NF6:NF1),2)`
17			`END SUBROUTINE`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [mvbits_5.f90] - Blame information for rev 378