| ! { 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 |