mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:26:48 +00:00
aea94c90b3
The compiler will now emit an error for length == 0 and an off-by-default portability warning for length > 1. Previously, the message was an unconditional warning for length /= 1.
14 lines
471 B
Fortran
14 lines
471 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
!ERROR: Character in intrinsic function ichar must have length one
|
|
print *, ichar('')
|
|
!ERROR: Character in intrinsic function iachar must have length one
|
|
print *, iachar('')
|
|
print *, ichar('a')
|
|
print *, iachar('a')
|
|
!PORTABILITY: Character in intrinsic function ichar should have length one
|
|
print *, ichar('ab')
|
|
!PORTABILITY: Character in intrinsic function iachar should have length one
|
|
print *, iachar('ab')
|
|
end
|
|
|