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
31
|
! RUN: %python %S/test_errors.py %s %flang_fc1
module m
real, constant :: rc
!ERROR: Object 'rcp' with ATTRIBUTES(CONSTANT) may not be allocatable, pointer, or target
real, constant, pointer :: rcp
!ERROR: Object 'rct' with ATTRIBUTES(CONSTANT) may not be allocatable, pointer, or target
real, constant, target :: rct
real, device, pointer :: dp(:)
real, device, target :: dt(100)
contains
attributes(device) subroutine devsub
!ERROR: Left-hand side of assignment is not definable
!BECAUSE: 'rc' has ATTRIBUTES(CONSTANT) and is not definable in a device subprogram
rc = 1.
!ERROR: The left-hand side of a pointer assignment is not definable
!BECAUSE: 'dp' is a pointer and may not be associated in a device subprogram
dp => dt
end
attributes(global) subroutine globsub
!ERROR: Left-hand side of assignment is not definable
!BECAUSE: 'rc' has ATTRIBUTES(CONSTANT) and is not definable in a device subprogram
rc = 1.
!ERROR: The left-hand side of a pointer assignment is not definable
!BECAUSE: 'dp' is a pointer and may not be associated in a device subprogram
dp => dt
end
subroutine hostsub
rc = 1.
dp => dt
end
end
|
