gcc/testsuite/gfortran.dg/pr77959.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! PR middle-end/77959
! { dg-do compile }
! { dg-options "-O2" }

program pr77959
  interface
    subroutine foo(x)  ! { dg-warning "Type mismatch in argument" }
      real :: x
    end
  end interface
  call foo(1.0)
end
subroutine foo(x)
  complex :: x
  x = x + 1
end