1! PR middle-end/77959
2! { dg-do compile }
3! { dg-options "-O2" }
4
5program pr77959
6 interface
7 subroutine foo(x) ! { dg-warning "Type mismatch in argument" }
8 real :: x
9 end
10 end interface
11 call foo(1.0)
12end
13subroutine foo(x)
14 complex :: x
15 x = x + 1
16end
17