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