nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr77959.f90
blob36754a0bd32320ba2909da9e6e05d668a81d60df
1 ! PR middle-end/77959
2 ! { dg-do compile }
3 ! { dg-options "-O2" }
5 program 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)
12 end
13 subroutine foo(x)
14 complex :: x
15 x = x + 1
16 end