6c1ac141d3
To enable Flang testing on Windows, shell scripts have to be ported to Python. In this patch the "test_errors.sh" script is ported to python ("test_errors.py"). The RUN line of existing tests was changed to make use of the python script.
Used python regex in place of awk/sed.
Reviewed By: Meinersbur
Differential Revision: https://reviews.llvm.org/D107575
40 lines
898 B
Fortran
40 lines
898 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Testing 7.6 enum
|
|
|
|
! OK
|
|
enum, bind(C)
|
|
enumerator :: red, green
|
|
enumerator blue, pink
|
|
enumerator yellow
|
|
enumerator :: purple = 2
|
|
end enum
|
|
|
|
integer(yellow) anint4
|
|
|
|
enum, bind(C)
|
|
enumerator :: square, cicrle
|
|
!ERROR: 'square' is already declared in this scoping unit
|
|
enumerator square
|
|
end enum
|
|
|
|
dimension :: apple(4)
|
|
real :: peach
|
|
|
|
enum, bind(C)
|
|
!ERROR: 'apple' is already declared in this scoping unit
|
|
enumerator :: apple
|
|
enumerator :: pear
|
|
!ERROR: 'peach' is already declared in this scoping unit
|
|
enumerator :: peach
|
|
!ERROR: 'red' is already declared in this scoping unit
|
|
enumerator :: red
|
|
end enum
|
|
|
|
enum, bind(C)
|
|
!ERROR: Enumerator value could not be computed from the given expression
|
|
!ERROR: Must be a constant value
|
|
enumerator :: wrong = 0/0
|
|
end enum
|
|
|
|
end
|