1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 2!ERROR: Character in intrinsic function ichar must have length one 3print *, ichar('') 4!ERROR: Character in intrinsic function iachar must have length one 5print *, iachar('') 6print *, ichar('a') 7print *, iachar('a') 8!PORTABILITY: Character in intrinsic function ichar should have length one 9print *, ichar('ab') 10!PORTABILITY: Character in intrinsic function iachar should have length one 11print *, iachar('ab') 12end 13 14