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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [argument_checking_6.f90] - Blame information for rev 801

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


! { dg-do compile }
! PR fortran/32669
!
! Contributed by Janus Weil 
!
program tfe
implicit none
 
real,dimension(-1:1) ::  w
real,dimension(1:4) ::  x
real,dimension(0:3) ::  y
real,dimension(-1:2) ::  z
 
call sub(x(:))
call sub(y(:))
call sub(z(:))
call sub(w(:)) ! { dg-warning "too few elements" }
 
contains
  subroutine sub(a)
    implicit none
    real,dimension(1:4) :: a
  end subroutine sub
end program tfe

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/32669`
3			`!`
4			`! Contributed by Janus Weil`
5			`!`
6			`program tfe`
7			`implicit none`
8
9			`real,dimension(-1:1) :: w`
10			`real,dimension(1:4) :: x`
11			`real,dimension(0:3) :: y`
12			`real,dimension(-1:2) :: z`
13
14			`call sub(x(:))`
15			`call sub(y(:))`
16			`call sub(z(:))`
17			`call sub(w(:)) ! { dg-warning "too few elements" }`
18
19			`contains`
20			`subroutine sub(a)`
21			`implicit none`
22			`real,dimension(1:4) :: a`
23			`end subroutine sub`
24			`end program tfe`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [argument_checking_6.f90] - Blame information for rev 801