30 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program command3 implicit none4 Integer(1) :: i15 Integer(2) :: i26 Integer(4) :: i47 Integer(8) :: i88 Integer(16) :: i169 Integer :: a10 !ERROR: Actual argument for 'length=' has bad type or kind 'INTEGER(1)'11 call get_command(length=i1)12 !OK:13 call get_command(length=i2)14 !OK:15 call get_command(length=i4)16 !OK:17 call get_command(length=i8)18 !OK:19 call get_command(length=i16)20 !ERROR: Actual argument for 'length=' has bad type or kind 'INTEGER(1)'21 call get_command_argument(number=a,length=i1)22 !OK:23 call get_command_argument(number=a,length=i2)24 !OK:25 call get_command_argument(number=a,length=i4)26 !OK:27 call get_command_argument(number=a,length=i8)28 !OK:29 call get_command_argument(number=a,length=i16)30end program