1! { dg-do run }
2! Tests the fix for the regression PR26716.
3! Test contributed by Martin Reinecke  <martin@mpa-garching.mpg.de>
4!
5module mod1
6  implicit none
7
8  interface foo
9     module procedure foo1, foo2
10  end interface
11
12contains
13
14  subroutine foo1(bar, i)
15    real bar
16    integer i
17    i = 1
18   end subroutine
19
20  subroutine foo2(bar, i)
21    real bar(3)
22    integer i
23    i = 2
24  end subroutine
25
26end module mod1
27
28  use mod1
29  implicit none
30
31  real bar(3)
32  integer i
33
34  i = 0
35  call foo (1e0, i)
36  if (i .ne. 1) call abort ()
37
38  i = 0
39  call foo (bar(1), i)
40  if (i .ne. 1) call abort ()
41
42  i = 0
43  call foo (bar, i)
44  if (i .ne. 2) call abort ()
45end
46