[flang][OpenMP] Unexpected error: expected 'END' for fujitsu test 0153/0153_0129.f90

[sscalpone]

Fujitsu OpenMP test fails to compile

% flang -fopenmp 0153/0153_0129.f90
error: Could not parse 0153/0153_0129.f90
./0153/0153_0129.f90:37:1: error: expected 'END'
  !$omp end parallel
  ^
./0153/0153_0129.f90:1:1: in the context: SUBROUTINE subprogram
  subroutine s1
  ^
% gfortran -fopenmp 0153/0153_0129.f90
%

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Steve Scalpone (sscalpone)

Fujitsu OpenMP test fails to compile ``` % flang -fopenmp 0153/0153_0129.f90 error: Could not parse 0153/0153_0129.f90 ./0153/0153_0129.f90:37:1: error: expected 'END' !$omp end parallel ^ ./0153/0153_0129.f90:1:1: in the context: SUBROUTINE subprogram subroutine s1 ^ % gfortran -fopenmp 0153/0153_0129.f90 % ```