19 lines · plain
1!RUN: %python %S/test_errors.py %s %flang_fc12 3function good() result(pptr)4 procedure(), pointer :: pptr5 external whatever6 pptr => whatever7end8 9function bad1() result(res1)10 !ERROR: A function result may not be a procedure unless it is a procedure pointer11 procedure() res112end13 14!ERROR: Procedure 'res2' is referenced before being sufficiently defined in a context where it must be so15function bad2() result(res2)16 !ERROR: EXTERNAL attribute not allowed on 'res2'17 external res218end19