blob: 7753429d65baab5e4bb0266c6c1814a22afff61c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
! { dg-additional-options "-pedantic" }
! PR fortran/89981 - this used to give a wrong warning (error with
! -pedantic)
program main
call bar(i)
call baz(i) ! { dg-error "Type mismatch in argument" }
end program main
subroutine foo(r)
entry bar(i)
entry baz(r)
end subroutine foo
|