mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:46:46 +00:00
502e7690c3
flang/test/Semantics/test_errors,py only compares actual error messages with expected error messages. Many tests have expected warning messages in them, but they are not checked. A forthcoming change adds several new warning and explanatory messages to the compiler, and these messages must be testable. So (re-?) enable non-error message checking in test_errors.py and adjust some existing tests to get them to pass. Warning messages related to host-specific folding conditions will not be emitted on all platforms, so they will continue to be ignored. Differential Revision: https://reviews.llvm.org/D136479
41 lines
940 B
Fortran
41 lines
940 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
|
|
!WARNING: INTEGER(4) division by zero
|
|
!ERROR: Must be a constant value
|
|
enumerator :: wrong = 0/0
|
|
end enum
|
|
|
|
end
|