No Support for DO CONCURRENT #403
Description
It seems like fparser does not support F08 DO CONCURRENT:
C:\PycharmProjects\fortran> python main.py
Traceback (most recent call last):
File "C:\Users\micha\anaconda3\envs\fortran\lib\site-packages\fparser\two\Fortran2003.py", line 266, in __new__
return Base.__new__(cls, string)
File "C:\Users\micha\anaconda3\envs\fortran\lib\site-packages\fparser\two\utils.py", line 487, in __new__
raise NoMatchError(errmsg)
fparser.two.utils.NoMatchError: at line 14
>>> do concurrent (i=1:n) local_init(a)
During handling of the above exception, another exception occurred:
Traceback (most recent call last):
File "C:\Users\micha\PycharmProjects\fortran\main.py", line 7, in <module>
parse_tree = f08_parser(reader)
File "C:\Users\micha\anaconda3\envs\fortran\lib\site-packages\fparser\two\Fortran2003.py", line 270, in __new__
raise FortranSyntaxError(string, "")
fparser.two.utils.FortranSyntaxError: at line 14
>>> do concurrent (i=1:n) local_init(a)
Failing code is:
module saxpy_impl
implicit none
contains
subroutine saxpy(a, x, y, n)
use iso_fortran_env
implicit none
integer :: n
real(kind=real32) :: a
real(kind=real32), dimension(n) :: x
real(kind=real32), dimension(n) :: y
integer :: i
do concurrent (i=1:n) local_init(a)
y(i) = a * x(i) + y(i)
end do
end subroutine saxpy
end module saxpy_impl