| ! { dg-do compile } | |
| ! Tests the fix for PR34471 in which function KINDs that were | |
| ! USE associated would cause an error. This checks a regression | |
| ! caused by an intermediate version of the patch. | |
| ! | |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| ! | |
| real (bad_kind(0d0)) function foo () ! { dg-error "must be an intrinsic function" } | |
| foo = real (kind (foo)) | |
| end function | |
| ! { dg-prune-output "Bad kind expression for function" } |