1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --allow-empty
2! Check subroutine with alt return
3
4 SUBROUTINE TEST (N, *, *)
5 IF ( N .EQ. 0 ) RETURN
6 IF ( N .EQ. 1 ) RETURN 1
7 RETURN 2
8 END
9! CHECK-NOT: error:
10! CHECK-NOT: portability:
11