e2733c82bd
The look-ahead parser for function program units didn't allow for a useless label on the statement. Fixes https://github.com/llvm/llvm-project/issues/129456.
8 lines
173 B
Fortran
8 lines
173 B
Fortran
! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck --allow-empty %s
|
|
!CHECK-NOT: error:
|
|
1 function fun()
|
|
2 end function
|
|
3 write(6,*) "pass"
|
|
4 end
|
|
|