| ! RUN: %python %S/test_errors.py %s %flang_fc1 | |
| subroutine foo | |
| end | |
| subroutine iso_fortran_env | |
| end | |
| subroutine bad1 | |
| !ERROR: 'foo' is not a module | |
| use foo | |
| end | |
| subroutine ok1 | |
| use, intrinsic :: iso_fortran_env | |
| end | |
| subroutine ok2 | |
| use iso_fortran_env | |
| end | |
| subroutine bad2 | |
| !ERROR: 'iso_fortran_env' is not a module | |
| use, non_intrinsic :: iso_fortran_env | |
| end |