! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s
! Test extension: RETURN from main program
return
! CHECK: portability: RETURN should not appear in a main program
end