11 lines · plain
1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --allow-empty2! Check subroutine with alt return3 4 SUBROUTINE TEST (N, *, *)5 IF ( N .EQ. 0 ) RETURN6 IF ( N .EQ. 1 ) RETURN 17 RETURN 28 END9! CHECK-NOT: error:10! CHECK-NOT: portability:11