14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic2!ERROR: Character in intrinsic function ichar must have length one3print *, ichar('')4!ERROR: Character in intrinsic function iachar must have length one5print *, iachar('')6print *, ichar('a')7print *, iachar('a')8!PORTABILITY: Character in intrinsic function ichar should have length one [-Wportability]9print *, ichar('ab')10!PORTABILITY: Character in intrinsic function iachar should have length one [-Wportability]11print *, iachar('ab')12end13 14