blob: 7753429d65baab5e4bb0266c6c1814a22afff61c [file] [log] [blame]
! { 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