525 lines
22 KiB
Fortran
525 lines
22 KiB
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror
|
||
|
|
! Tests the checking of storage sequence argument association (F'2023 15.2.5.12)
|
||
|
|
module nonchar
|
||
|
|
contains
|
||
|
|
subroutine scalar(a)
|
||
|
|
real a
|
||
|
|
end
|
||
|
|
subroutine explicit1(a)
|
||
|
|
real a(2)
|
||
|
|
end
|
||
|
|
subroutine explicit2(a)
|
||
|
|
real a(2,2)
|
||
|
|
end
|
||
|
|
subroutine assumedSize1(a)
|
||
|
|
real a(*)
|
||
|
|
end
|
||
|
|
subroutine assumedSize2(a)
|
||
|
|
real a(2,*)
|
||
|
|
end
|
||
|
|
subroutine assumedShape1(a)
|
||
|
|
real a(:)
|
||
|
|
end
|
||
|
|
subroutine assumedShape2(a)
|
||
|
|
real a(:,:)
|
||
|
|
end
|
||
|
|
subroutine assumedRank(a)
|
||
|
|
real a(..)
|
||
|
|
end
|
||
|
|
subroutine allocatable0(a)
|
||
|
|
real, allocatable :: a
|
||
|
|
end
|
||
|
|
subroutine allocatable1(a)
|
||
|
|
real, allocatable :: a(:)
|
||
|
|
end
|
||
|
|
subroutine allocatable2(a)
|
||
|
|
real, allocatable :: a(:,:)
|
||
|
|
end
|
||
|
|
subroutine pointer0(a)
|
||
|
|
real, intent(in), pointer :: a
|
||
|
|
end
|
||
|
|
subroutine pointer1(a)
|
||
|
|
real, intent(in), pointer :: a(:)
|
||
|
|
end
|
||
|
|
subroutine pointer2(a)
|
||
|
|
real, intent(in), pointer :: a(:,:)
|
||
|
|
end
|
||
|
|
subroutine coarray0(a)
|
||
|
|
real a[*]
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine test
|
||
|
|
real, target :: scalar0
|
||
|
|
real, target :: vector1(1), vector2(2), vector4(4)
|
||
|
|
real, target :: matrix11(1,1), matrix12(1,2), matrix22(2,2)
|
||
|
|
real, allocatable :: alloScalar, alloVector(:), alloMatrix(:,:)
|
||
|
|
|
||
|
|
call scalar(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
call scalar(vector1)
|
||
|
|
call scalar(vector1(1))
|
||
|
|
|
||
|
|
!ERROR: Whole scalar actual argument may not be associated with a dummy argument 'a=' array
|
||
|
|
call explicit1(scalar0)
|
||
|
|
!ERROR: Actual argument array has fewer elements (1) than dummy argument 'a=' array (2)
|
||
|
|
call explicit1(vector1)
|
||
|
|
call explicit1(vector2)
|
||
|
|
call explicit1(vector4)
|
||
|
|
!ERROR: Actual argument has fewer elements remaining in storage sequence (1) than dummy argument 'a=' array (2)
|
||
|
|
call explicit1(vector2(2))
|
||
|
|
call explicit1(vector4(3))
|
||
|
|
!ERROR: Actual argument has fewer elements remaining in storage sequence (1) than dummy argument 'a=' array (2)
|
||
|
|
call explicit1(vector4(4))
|
||
|
|
!ERROR: Actual argument array has fewer elements (1) than dummy argument 'a=' array (2)
|
||
|
|
call explicit1(matrix11)
|
||
|
|
|
||
|
|
!ERROR: Whole scalar actual argument may not be associated with a dummy argument 'a=' array
|
||
|
|
call explicit2(scalar0)
|
||
|
|
!ERROR: Actual argument array has fewer elements (1) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(vector1)
|
||
|
|
!ERROR: Actual argument array has fewer elements (2) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(vector2)
|
||
|
|
call explicit2(vector4)
|
||
|
|
!ERROR: Actual argument has fewer elements remaining in storage sequence (1) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(vector2(2))
|
||
|
|
!ERROR: Actual argument has fewer elements remaining in storage sequence (3) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(vector4(2))
|
||
|
|
call explicit2(vector4(1))
|
||
|
|
!ERROR: Actual argument array has fewer elements (1) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(matrix11)
|
||
|
|
!ERROR: Actual argument array has fewer elements (2) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(matrix12)
|
||
|
|
call explicit2(matrix22)
|
||
|
|
call explicit2(matrix22(1,1))
|
||
|
|
!ERROR: Actual argument has fewer elements remaining in storage sequence (3) than dummy argument 'a=' array (4)
|
||
|
|
call explicit2(matrix22(2,1))
|
||
|
|
|
||
|
|
!ERROR: Whole scalar actual argument may not be associated with a dummy argument 'a=' array
|
||
|
|
call assumedSize1(scalar0)
|
||
|
|
call assumedSize1(vector1)
|
||
|
|
call assumedSize1(vector2)
|
||
|
|
call assumedSize1(vector4)
|
||
|
|
call assumedSize1(vector2(2))
|
||
|
|
call assumedSize1(vector4(2))
|
||
|
|
call assumedSize1(vector4(1))
|
||
|
|
call assumedSize1(matrix11)
|
||
|
|
call assumedSize1(matrix12)
|
||
|
|
call assumedSize1(matrix22)
|
||
|
|
call assumedSize1(matrix22(1,1))
|
||
|
|
call assumedSize1(matrix22(2,1))
|
||
|
|
|
||
|
|
!ERROR: Whole scalar actual argument may not be associated with a dummy argument 'a=' array
|
||
|
|
call assumedSize2(scalar0)
|
||
|
|
call assumedSize2(vector1)
|
||
|
|
call assumedSize2(vector2)
|
||
|
|
call assumedSize2(vector4)
|
||
|
|
call assumedSize2(vector2(2))
|
||
|
|
call assumedSize2(vector4(2))
|
||
|
|
call assumedSize2(vector4(1))
|
||
|
|
call assumedSize2(matrix11)
|
||
|
|
call assumedSize2(matrix12)
|
||
|
|
call assumedSize2(matrix22)
|
||
|
|
call assumedSize2(matrix22(1,1))
|
||
|
|
call assumedSize2(matrix22(2,1))
|
||
|
|
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape1(scalar0)
|
||
|
|
call assumedShape1(vector1)
|
||
|
|
call assumedShape1(vector2)
|
||
|
|
call assumedShape1(vector4)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape1(vector2(2))
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call assumedShape1(matrix11)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call assumedShape1(matrix12)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call assumedShape1(matrix22)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape1(matrix22(1,1))
|
||
|
|
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape2(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call assumedShape2(vector1)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call assumedShape2(vector2)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call assumedShape2(vector4)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape2(vector2(2))
|
||
|
|
call assumedShape2(matrix11)
|
||
|
|
call assumedShape2(matrix12)
|
||
|
|
call assumedShape2(matrix22)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape2(matrix22(1,1))
|
||
|
|
|
||
|
|
call assumedRank(scalar0)
|
||
|
|
call assumedRank(vector1)
|
||
|
|
call assumedRank(vector1(1))
|
||
|
|
call assumedRank(matrix11)
|
||
|
|
call assumedRank(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable0(scalar0)
|
||
|
|
call allocatable0(alloScalar)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
call allocatable0(alloVector)
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable0(alloVector(1))
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 2
|
||
|
|
call allocatable0(alloMatrix)
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable0(alloMatrix(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable1(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
call allocatable1(alloScalar)
|
||
|
|
call allocatable1(alloVector)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable1(alloVector(1))
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call allocatable1(alloMatrix)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable1(alloMatrix(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable2(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
call allocatable2(alloScalar)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call allocatable2(alloVector)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable2(alloVector(1))
|
||
|
|
call allocatable2(alloMatrix)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable2(alloMatrix(1,1))
|
||
|
|
|
||
|
|
call pointer0(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
!ERROR: Pointer has rank 0 but target has rank 1
|
||
|
|
call pointer0(vector1)
|
||
|
|
call pointer0(vector1(1))
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 2
|
||
|
|
!ERROR: Pointer has rank 0 but target has rank 2
|
||
|
|
call pointer0(matrix11)
|
||
|
|
call pointer0(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 0
|
||
|
|
call pointer1(scalar0)
|
||
|
|
call pointer1(vector1)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 0
|
||
|
|
call pointer1(vector1(1))
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 2
|
||
|
|
call pointer1(matrix11)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 0
|
||
|
|
call pointer1(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 0
|
||
|
|
call pointer2(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 1
|
||
|
|
call pointer2(vector1)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 0
|
||
|
|
call pointer2(vector1(1))
|
||
|
|
call pointer2(matrix11)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 0
|
||
|
|
call pointer2(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(vector1)
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(vector1(1))
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 2
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(matrix11)
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(matrix11(1,1))
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
module char
|
||
|
|
contains
|
||
|
|
subroutine scalar(a)
|
||
|
|
character(2) a
|
||
|
|
end
|
||
|
|
subroutine explicit1(a)
|
||
|
|
character(2) a(2)
|
||
|
|
end
|
||
|
|
subroutine explicit2(a)
|
||
|
|
character(2) a(2,2)
|
||
|
|
end
|
||
|
|
subroutine assumedSize1(a)
|
||
|
|
character(2) a(*)
|
||
|
|
end
|
||
|
|
subroutine assumedSize2(a)
|
||
|
|
character(2) a(2,*)
|
||
|
|
end
|
||
|
|
subroutine assumedShape1(a)
|
||
|
|
character(2) a(:)
|
||
|
|
end
|
||
|
|
subroutine assumedShape2(a)
|
||
|
|
character(2) a(:,:)
|
||
|
|
end
|
||
|
|
subroutine assumedRank(a)
|
||
|
|
character(2) a(..)
|
||
|
|
end
|
||
|
|
subroutine allocatable0(a)
|
||
|
|
character(2), allocatable :: a
|
||
|
|
end
|
||
|
|
subroutine allocatable1(a)
|
||
|
|
character(2), allocatable :: a(:)
|
||
|
|
end
|
||
|
|
subroutine allocatable2(a)
|
||
|
|
character(2), allocatable :: a(:,:)
|
||
|
|
end
|
||
|
|
subroutine pointer0(a)
|
||
|
|
character(2), intent(in), pointer :: a
|
||
|
|
end
|
||
|
|
subroutine pointer1(a)
|
||
|
|
character(2), intent(in), pointer :: a(:)
|
||
|
|
end
|
||
|
|
subroutine pointer2(a)
|
||
|
|
character(2), intent(in), pointer :: a(:,:)
|
||
|
|
end
|
||
|
|
subroutine coarray0(a)
|
||
|
|
character(2) a[*]
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine test
|
||
|
|
character(2), target :: scalar0
|
||
|
|
character(2), target :: vector1(1), vector2(2), vector4(4)
|
||
|
|
character(2), target :: matrix11(1,1), matrix12(1,2), matrix22(2,2)
|
||
|
|
character(2), allocatable :: alloScalar, alloVector(:), alloMatrix(:,:)
|
||
|
|
|
||
|
|
call scalar(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
call scalar(vector1)
|
||
|
|
call scalar(vector1(1))
|
||
|
|
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (2) than dummy argument 'a=' (4)
|
||
|
|
call explicit1(scalar0)
|
||
|
|
!ERROR: Actual argument array has fewer characters (2) than dummy argument 'a=' array (4)
|
||
|
|
call explicit1(vector1)
|
||
|
|
call explicit1(vector2)
|
||
|
|
call explicit1(vector4)
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (2) than dummy argument 'a=' (4)
|
||
|
|
call explicit1(vector2(2))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (3) than dummy argument 'a=' (4)
|
||
|
|
call explicit1(vector2(1)(2:2))
|
||
|
|
call explicit1(vector4(3))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (2) than dummy argument 'a=' (4)
|
||
|
|
call explicit1(vector4(4))
|
||
|
|
!ERROR: Actual argument array has fewer characters (2) than dummy argument 'a=' array (4)
|
||
|
|
call explicit1(matrix11)
|
||
|
|
call explicit1(matrix12)
|
||
|
|
call explicit1(matrix12(1,1))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (3) than dummy argument 'a=' (4)
|
||
|
|
call explicit1(matrix12(1,1)(2:2))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (2) than dummy argument 'a=' (4)
|
||
|
|
call explicit1(matrix12(1,2))
|
||
|
|
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (2) than dummy argument 'a=' (8)
|
||
|
|
call explicit2(scalar0)
|
||
|
|
!ERROR: Actual argument array has fewer characters (2) than dummy argument 'a=' array (8)
|
||
|
|
call explicit2(vector1)
|
||
|
|
!ERROR: Actual argument array has fewer characters (4) than dummy argument 'a=' array (8)
|
||
|
|
call explicit2(vector2)
|
||
|
|
call explicit2(vector4)
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (2) than dummy argument 'a=' (8)
|
||
|
|
call explicit2(vector2(2))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (6) than dummy argument 'a=' (8)
|
||
|
|
call explicit2(vector4(2))
|
||
|
|
call explicit2(vector4(1))
|
||
|
|
!ERROR: Actual argument array has fewer characters (2) than dummy argument 'a=' array (8)
|
||
|
|
call explicit2(matrix11)
|
||
|
|
!ERROR: Actual argument array has fewer characters (4) than dummy argument 'a=' array (8)
|
||
|
|
call explicit2(matrix12)
|
||
|
|
call explicit2(matrix22)
|
||
|
|
call explicit2(matrix22(1,1))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (7) than dummy argument 'a=' (8)
|
||
|
|
call explicit2(matrix22(1,1)(2:2))
|
||
|
|
!ERROR: Actual argument has fewer characters remaining in storage sequence (6) than dummy argument 'a=' (8)
|
||
|
|
call explicit2(matrix22(2,1))
|
||
|
|
|
||
|
|
call assumedSize1(scalar0)
|
||
|
|
call assumedSize1(vector1)
|
||
|
|
call assumedSize1(vector2)
|
||
|
|
call assumedSize1(vector4)
|
||
|
|
call assumedSize1(vector2(2))
|
||
|
|
call assumedSize1(vector4(2))
|
||
|
|
call assumedSize1(vector4(1))
|
||
|
|
call assumedSize1(matrix11)
|
||
|
|
call assumedSize1(matrix12)
|
||
|
|
call assumedSize1(matrix22)
|
||
|
|
call assumedSize1(matrix22(1,1))
|
||
|
|
call assumedSize1(matrix22(2,1))
|
||
|
|
|
||
|
|
call assumedSize2(scalar0)
|
||
|
|
call assumedSize2(vector1)
|
||
|
|
call assumedSize2(vector2)
|
||
|
|
call assumedSize2(vector4)
|
||
|
|
call assumedSize2(vector2(2))
|
||
|
|
call assumedSize2(vector4(2))
|
||
|
|
call assumedSize2(vector4(1))
|
||
|
|
call assumedSize2(matrix11)
|
||
|
|
call assumedSize2(matrix12)
|
||
|
|
call assumedSize2(matrix22)
|
||
|
|
call assumedSize2(matrix22(1,1))
|
||
|
|
call assumedSize2(matrix22(2,1))
|
||
|
|
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape1(scalar0)
|
||
|
|
call assumedShape1(vector1)
|
||
|
|
call assumedShape1(vector2)
|
||
|
|
call assumedShape1(vector4)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape1(vector2(2))
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call assumedShape1(matrix11)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call assumedShape1(matrix12)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call assumedShape1(matrix22)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape1(matrix22(1,1))
|
||
|
|
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape2(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call assumedShape2(vector1)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call assumedShape2(vector2)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call assumedShape2(vector4)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape2(vector2(2))
|
||
|
|
call assumedShape2(matrix11)
|
||
|
|
call assumedShape2(matrix12)
|
||
|
|
call assumedShape2(matrix22)
|
||
|
|
!ERROR: Scalar actual argument may not be associated with assumed-shape dummy argument 'a='
|
||
|
|
call assumedShape2(matrix22(1,1))
|
||
|
|
|
||
|
|
call assumedRank(scalar0)
|
||
|
|
call assumedRank(vector1)
|
||
|
|
call assumedRank(vector1(1))
|
||
|
|
call assumedRank(matrix11)
|
||
|
|
call assumedRank(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable0(scalar0)
|
||
|
|
call allocatable0(alloScalar)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
call allocatable0(alloVector)
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable0(alloVector(1))
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 2
|
||
|
|
call allocatable0(alloMatrix)
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable0(alloMatrix(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable1(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
call allocatable1(alloScalar)
|
||
|
|
call allocatable1(alloVector)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable1(alloVector(1))
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
call allocatable1(alloMatrix)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable1(alloMatrix(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable2(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
call allocatable2(alloScalar)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
call allocatable2(alloVector)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable2(alloVector(1))
|
||
|
|
call allocatable2(alloMatrix)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: ALLOCATABLE dummy argument 'a=' must be associated with an ALLOCATABLE actual argument
|
||
|
|
call allocatable2(alloMatrix(1,1))
|
||
|
|
|
||
|
|
call pointer0(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
!ERROR: Pointer has rank 0 but target has rank 1
|
||
|
|
call pointer0(vector1)
|
||
|
|
call pointer0(vector1(1))
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 2
|
||
|
|
!ERROR: Pointer has rank 0 but target has rank 2
|
||
|
|
call pointer0(matrix11)
|
||
|
|
call pointer0(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 0
|
||
|
|
call pointer1(scalar0)
|
||
|
|
call pointer1(vector1)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 0
|
||
|
|
call pointer1(vector1(1))
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 2
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 2
|
||
|
|
call pointer1(matrix11)
|
||
|
|
!ERROR: Rank of dummy argument is 1, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 1 but target has rank 0
|
||
|
|
call pointer1(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 0
|
||
|
|
call pointer2(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 1
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 1
|
||
|
|
call pointer2(vector1)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 0
|
||
|
|
call pointer2(vector1(1))
|
||
|
|
call pointer2(matrix11)
|
||
|
|
!ERROR: Rank of dummy argument is 2, but actual argument has rank 0
|
||
|
|
!ERROR: Pointer has rank 2 but target has rank 0
|
||
|
|
call pointer2(matrix11(1,1))
|
||
|
|
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(scalar0)
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 1
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(vector1)
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(vector1(1))
|
||
|
|
!ERROR: Rank of dummy argument is 0, but actual argument has rank 2
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(matrix11)
|
||
|
|
!ERROR: Actual argument associated with coarray dummy argument 'a=' must be a coarray
|
||
|
|
call coarray0(matrix11(1,1))
|
||
|
|
|
||
|
|
!WARNING: Actual argument variable length '1' is less than expected length '2'
|
||
|
|
call scalar(scalar0(1:1))
|
||
|
|
!WARNING: Actual argument expression length '1' is less than expected length '2'
|
||
|
|
call scalar('a')
|
||
|
|
end
|
||
|
|
end
|