1! RUN: %S/test_errors.sh %s %t %f18
2! Functions cannot use alt return
3
4REAL FUNCTION altreturn01(X)
5!ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
6  RETURN 1
7END
8