1! RUN: %S/test_errors.sh %s %t %flang_fc1 -fimplicit-none
2! REQUIRES: shell
3
4!ERROR: No explicit type declared for 'f'
5function f()
6  !ERROR: No explicit type declared for 'x'
7  f = x
8end
9