12 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12pure subroutine puresub3 intrinsic sleep, chdir, get_command4 character(80) str5 !ERROR: Procedure 'impureexternal' referenced in pure subprogram 'puresub' must be pure too6 call impureExternal ! implicit interface7 !ERROR: Procedure 'sleep' referenced in pure subprogram 'puresub' must be pure too8 call sleep(1) ! intrinsic subroutine, debatably impure9 !ERROR: Procedure 'chdir' referenced in pure subprogram 'puresub' must be pure too10 call chdir('.') ! "dual" function/subroutine, impure11end12