blob: b5f24cddbd05261d3205d5005a37bdb476ea1765 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! RUN: %python %S/test_errors.py %s %flang_fc1
program command
implicit none
Integer(1) :: i1
Integer(2) :: i2
Integer(4) :: i4
Integer(8) :: i8
Integer(16) :: i16
Integer :: a
!ERROR: Actual argument for 'length=' has bad type or kind 'INTEGER(1)'
call get_command(length=i1)
!OK:
call get_command(length=i2)
!OK:
call get_command(length=i4)
!OK:
call get_command(length=i8)
!OK:
call get_command(length=i16)
!ERROR: Actual argument for 'length=' has bad type or kind 'INTEGER(1)'
call get_command_argument(number=a,length=i1)
!OK:
call get_command_argument(number=a,length=i2)
!OK:
call get_command_argument(number=a,length=i4)
!OK:
call get_command_argument(number=a,length=i8)
!OK:
call get_command_argument(number=a,length=i16)
end program
|
