| ! 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 |
| |
| subroutine bug114080(arg, contigArg) |
| character(*) :: arg(..) |
| character(*), contiguous :: contigArg(..) |
| interface |
| subroutine sub1(arg1) bind(c) |
| character(1) :: arg1(2,4) |
| end subroutine |
| end interface |
| !ERROR: Assumed-rank character array may not be associated with a dummy argument that is not assumed-rank |
| call sub1(arg) |
| !ERROR: Assumed-rank character array may not be associated with a dummy argument that is not assumed-rank |
| call sub1(contigArg) |
| !ERROR: Assumed-rank character array may not be associated with a dummy argument that is not assumed-rank |
| call sub2(arg) |
| !ERROR: Assumed-rank character array may not be associated with a dummy argument that is not assumed-rank |
| call sub2(contigArg) |
| contains |
| subroutine sub2(arg2) |
| character(*) :: arg2(10) |
| end subroutine sub2 |
| end subroutine |
| |
| subroutine bug123807 |
| interface |
| subroutine test(s) |
| character(5), intent(inout) :: s(5) |
| end |
| end interface |
| character(30) :: s30a |
| character(30), allocatable :: s30b |
| character(6) :: s30c(5) |
| character(24) :: s24a |
| character(24), allocatable :: s24b |
| character(4) :: s24c(6) |
| allocate(s30b) |
| allocate(s24b) |
| call test(s30a) |
| call test(s30a(6:)) |
| !ERROR: Actual argument has fewer characters remaining in storage sequence (24) than dummy argument 's=' (25) |
| call test(s30a(7:)) |
| call test(s30b) |
| call test(s30b(6:)) |
| !ERROR: Actual argument has fewer characters remaining in storage sequence (24) than dummy argument 's=' (25) |
| call test(s30b(7:)) |
| call test(s30c) |
| call test(s30c(1)(6:)) |
| !ERROR: Actual argument has fewer characters remaining in storage sequence (24) than dummy argument 's=' (25) |
| call test(s30c(2)) |
| !ERROR: Actual argument has fewer characters remaining in storage sequence (24) than dummy argument 's=' (25) |
| call test(s30c(2)(1:)) |
| !ERROR: Actual argument has fewer characters remaining in storage sequence (24) than dummy argument 's=' (25) |
| call test(s24a) |
| !ERROR: Actual argument has fewer characters remaining in storage sequence (24) than dummy argument 's=' (25) |
| call test(s24b) |
| !ERROR: Actual argument array has fewer characters (24) than dummy argument 's=' array (25) |
| call test(s24c) |
| end |
