1! RUN: %S/test_errors.sh %s %t %f18
2! Test extension: RETURN from main program
3
4return !ok
5!ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
6return 0
7end
8