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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR fortran/51904
!
! Contributed by David Sagan.
!
 
call qp_draw_polyline_basic([1.0,2.0])
contains
subroutine qp_draw_polyline_basic (x)
  implicit none
  real :: x(:), f
  integer :: i
  f = 0
  print *, size(f*x)
end subroutine
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/51904`
4			`!`
5			`! Contributed by David Sagan.`
6			`!`
7
8			`call qp_draw_polyline_basic([1.0,2.0])`
9			`contains`
10			`subroutine qp_draw_polyline_basic (x)`
11			`implicit none`
12			`real :: x(:), f`
13			`integer :: i`
14			`f = 0`
15			`print , size(fx)`
16			`end subroutine`
17			`end`

Browse

Tools

Subversion Repositories openrisc

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