xref: /llvm-project/flang/test/Semantics/altreturn02.f90 (revision 1dd8da2d7c75c2a34bf85a37a819755d60ddfb2b) 
1*1dd8da2dSEmil Kieri! RUN: %flang_fc1 -fsyntax-only -pedantic %s  2>&1 | FileCheck %s --allow-empty
264ab3302SCarolineConcatto! Check subroutine with alt return
364ab3302SCarolineConcatto
464ab3302SCarolineConcatto       SUBROUTINE TEST (N, *, *)
564ab3302SCarolineConcatto       IF ( N .EQ. 0 ) RETURN
664ab3302SCarolineConcatto       IF ( N .EQ. 1 ) RETURN 1
764ab3302SCarolineConcatto       RETURN 2
864ab3302SCarolineConcatto       END
9*1dd8da2dSEmil Kieri! CHECK-NOT: error:
10*1dd8da2dSEmil Kieri! CHECK-NOT: portability:
11