| ! { dg-do compile } | |
| ! PR fortran/103715 - ICE in gfc_find_gsymbol | |
| ! | |
| ! valgrind did report an invalid read in check_externals_procedure | |
| program p | |
| select type (y => g()) ! { dg-error "Selector shall be polymorphic" } | |
| end select | |
| call g() | |
| end | |
| ! { dg-prune-output "already being used as a FUNCTION" } |