blob: 998eb98cc144ab53e9d63815534da3a6d8d38e1f [file] [log] [blame]
! RUN: %python %S/test_errors.py %s %flang_fc1
! 9.4.5
subroutine s1
type :: t(k, l)
integer, kind :: k
integer, len :: l
end type
type(t(1, 2)) :: x
!ERROR: Assignment to constant 'x%k' is not allowed
x%k = 4
!ERROR: Assignment to constant 'x%l' is not allowed
x%l = 3
end
! C901
subroutine s2(x)
!ERROR: A dummy argument may not also be a named constant
real, parameter :: x = 0.0
real, parameter :: a(*) = [1, 2, 3]
character, parameter :: c(2) = "ab"
integer :: i
!ERROR: Assignment to constant 'x' is not allowed
x = 2.0
i = 2
!ERROR: Left-hand side of assignment is not modifiable
a(i) = 3.0
!ERROR: Left-hand side of assignment is not modifiable
a(i:i+1) = [4, 5]
!ERROR: Left-hand side of assignment is not modifiable
c(i:2) = "cd"
end
! C901
subroutine s3
type :: t
integer :: a(2)
integer :: b
end type
type(t) :: x
type(t), parameter :: y = t([1,2], 3)
integer :: i = 1
x%a(i) = 1
!ERROR: Left-hand side of assignment is not modifiable
y%a(i) = 2
x%b = 4
!ERROR: Assignment to constant 'y%b' is not allowed
y%b = 5
end
! C844
subroutine s4
type :: t
integer :: a(2)
end type
contains
subroutine s(x, c)
type(t), intent(in) :: x
character(10), intent(in) :: c
type(t) :: y
!ERROR: Left-hand side of assignment is not modifiable
x = y
!ERROR: Left-hand side of assignment is not modifiable
x%a(1) = 2
!ERROR: Left-hand side of assignment is not modifiable
c(2:3) = "ab"
end
end
! 8.5.15(2)
module m5
real :: x
real, protected :: y
real, private :: z
type :: t
real :: a
end type
type(t), protected :: b
end
subroutine s5()
use m5
implicit none
x = 1.0
!ERROR: Left-hand side of assignment is not modifiable
y = 2.0
!ERROR: No explicit type declared for 'z'
z = 3.0
!ERROR: Left-hand side of assignment is not modifiable
b%a = 1.0
end
subroutine s6(x)
integer :: x(*)
x(1:3) = [1, 2, 3]
x(:3) = [1, 2, 3]
!ERROR: Assumed-size array 'x' must have explicit final subscript upper bound value
x(:) = [1, 2, 3]
!ERROR: Whole assumed-size array 'x' may not appear here without subscripts
x = [1, 2, 3]
end
module m7
type :: t
integer :: i
end type
contains
subroutine s7(x)
type(t) :: x(*)
x(:3)%i = [1, 2, 3]
!ERROR: Whole assumed-size array 'x' may not appear here without subscripts
x%i = [1, 2, 3]
end
end
subroutine s7
integer :: a(10), v(10)
a(v(:)) = 1 ! vector subscript is ok
end
subroutine s8
!ERROR: Assignment to subprogram 's8' is not allowed
s8 = 1.0
end
real function f9() result(r)
!ERROR: Assignment to subprogram 'f9' is not allowed
f9 = 1.0
end
!ERROR: No explicit type declared for dummy argument 'n'
subroutine s10(a, n)
implicit none
real a(n)
a(1:n) = 0.0 ! should not get a second error here
end
subroutine s11
intrinsic :: sin
real :: a
!ERROR: Function call must have argument list
a = sin
!ERROR: Subroutine name is not allowed here
a = s11
end
subroutine s12()
type dType(l1, k1, l2, k2)
integer, len :: l1
integer, kind :: k1
integer, len :: l2
integer, kind :: k2
end type
contains
subroutine sub(arg1, arg2, arg3)
integer :: arg1
type(dType(arg1, 2, *, 4)) :: arg2
type(dType(*, 2, arg1, 4)) :: arg3
type(dType(1, 2, 3, 4)) :: local1
type(dType(1, 2, 3, 4)) :: local2
type(dType(1, 2, arg1, 4)) :: local3
type(dType(9, 2, 3, 4)) :: local4
type(dType(1, 9, 3, 4)) :: local5
arg2 = arg3
arg2 = local1
arg3 = local1
local1 = local2
local2 = local3
!ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types TYPE(dtype(k1=2_4,k2=4_4,l1=1_4,l2=3_4)) and TYPE(dtype(k1=2_4,k2=4_4,l1=9_4,l2=3_4))
local1 = local4 ! mismatched constant KIND type parameter
!ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types TYPE(dtype(k1=2_4,k2=4_4,l1=1_4,l2=3_4)) and TYPE(dtype(k1=9_4,k2=4_4,l1=1_4,l2=3_4))
local1 = local5 ! mismatched constant LEN type parameter
end subroutine sub
end subroutine s12
subroutine s13()
interface assignment(=)
procedure :: cToR, cToRa, cToI
end interface
real :: x(1)
integer :: n(1)
x='0' ! fine
n='0' ! fine
!ERROR: Defined assignment in WHERE must be elemental, but 'ctora' is not
where ([1==1]) x='*'
where ([1==1]) n='*' ! fine
forall (j=1:1)
where (j==1)
!ERROR: Defined assignment in WHERE must be elemental, but 'ctor' is not
x(j)='?'
n(j)='?' ! fine
elsewhere (.false.)
!ERROR: Defined assignment in WHERE must be elemental, but 'ctor' is not
x(j)='1'
n(j)='1' ! fine
elsewhere
!ERROR: Defined assignment in WHERE must be elemental, but 'ctor' is not
x(j)='9'
n(j)='9' ! fine
end where
end forall
x='0' ! still fine
n='0' ! still fine
contains
subroutine cToR(x, c)
real, intent(out) :: x
character, intent(in) :: c
end subroutine
subroutine cToRa(x, c)
real, intent(out) :: x(:)
character, intent(in) :: c
end subroutine
elemental subroutine cToI(n, c)
integer, intent(out) :: n
character, intent(in) :: c
end subroutine
end subroutine s13