| !RUN: %python %S/test_errors.py %s %flang_fc1 | |
| function good() result(pptr) | |
| procedure(), pointer :: pptr | |
| external whatever | |
| pptr => whatever | |
| end | |
| function bad1() result(res1) | |
| !ERROR: A function result may not be a procedure unless it is a procedure pointer | |
| procedure() res1 | |
| end | |
| !ERROR: Procedure 'res2' is referenced before being sufficiently defined in a context where it must be so | |
| function bad2() result(res2) | |
| !ERROR: EXTERNAL attribute not allowed on 'res2' | |
| external res2 | |
| end |