| ! { dg-do compile } | |
| ! { dg-options "-ff2c" } | |
| ! PR 25392 | |
| ! Verify that the type of the result variable matches the declared | |
| ! type of the function. The actual type of the function may be | |
| ! different for f2c calling conventions. | |
| real function goo () result (foo) | |
| real x | |
| foo = sign(foo, x) | |
| end | |
| real function foo () | |
| real x | |
| foo = sign(foo, x) | |
| end | |