forked from OSchip/llvm-project
87 lines
3.7 KiB
Fortran
87 lines
3.7 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Test 15.7 C1594 - prohibited assignments in pure subprograms
|
|
|
|
module used
|
|
real :: useassociated
|
|
end module
|
|
|
|
module m
|
|
type :: t
|
|
sequence
|
|
real :: a
|
|
end type
|
|
type(t), target :: x
|
|
type :: hasPtr
|
|
real, pointer :: p
|
|
end type
|
|
type :: hasCoarray
|
|
real, allocatable :: co[:]
|
|
end type
|
|
contains
|
|
integer pure function purefunc(x)
|
|
integer, intent(in) :: x
|
|
purefunc = x
|
|
end function
|
|
integer pure function f00(p0)
|
|
procedure(purefunc) :: p0
|
|
f00 = p0(1)
|
|
end function
|
|
pure function test(ptr, in, hpd)
|
|
use used
|
|
type(t), pointer :: ptr, ptr2
|
|
type(t), target, intent(in) :: in
|
|
type(t), target :: y, z
|
|
type(hasPtr) :: hp
|
|
type(hasPtr), intent(in) :: hpd
|
|
type(hasPtr), allocatable :: alloc
|
|
type(hasCoarray), pointer :: hcp
|
|
integer :: n
|
|
common /block/ y
|
|
external :: extfunc
|
|
!ERROR: Pure subprogram 'test' may not define 'x' because it is host-associated
|
|
x%a = 0.
|
|
!ERROR: Pure subprogram 'test' may not define 'y' because it is in a COMMON block
|
|
y%a = 0. ! C1594(1)
|
|
!ERROR: Pure subprogram 'test' may not define 'useassociated' because it is USE-associated
|
|
useassociated = 0. ! C1594(1)
|
|
!ERROR: Pure subprogram 'test' may not define 'ptr' because it is a POINTER dummy argument of a pure function
|
|
ptr%a = 0. ! C1594(1)
|
|
!ERROR: Pure subprogram 'test' may not define 'in' because it is an INTENT(IN) dummy argument
|
|
in%a = 0. ! C1594(1)
|
|
!ERROR: A pure subprogram may not define a coindexed object
|
|
hcp%co[1] = 0. ! C1594(1)
|
|
!ERROR: Pure subprogram 'test' may not define 'ptr' because it is a POINTER dummy argument of a pure function
|
|
ptr => z ! C1594(2)
|
|
!ERROR: Pure subprogram 'test' may not define 'ptr' because it is a POINTER dummy argument of a pure function
|
|
nullify(ptr) ! C1594(2), 19.6.8
|
|
!ERROR: A pure subprogram may not use 'ptr' as the target of pointer assignment because it is a POINTER dummy argument of a pure function
|
|
ptr2 => ptr ! C1594(3)
|
|
!ERROR: A pure subprogram may not use 'in' as the target of pointer assignment because it is an INTENT(IN) dummy argument
|
|
ptr2 => in ! C1594(3)
|
|
!ERROR: A pure subprogram may not use 'y' as the target of pointer assignment because it is in a COMMON block
|
|
ptr2 => y ! C1594(2)
|
|
!ERROR: Externally visible object 'block' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(y%a)]) ! C1594(4)
|
|
!ERROR: Externally visible object 'x' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(x%a)]) ! C1594(4)
|
|
!ERROR: Externally visible object 'ptr' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(ptr%a)]) ! C1594(4)
|
|
!ERROR: Externally visible object 'in' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(in%a)]) ! C1594(4)
|
|
!ERROR: A pure subprogram may not copy the value of 'hpd' because it is an INTENT(IN) dummy argument and has the POINTER component '%p'
|
|
hp = hpd ! C1594(5)
|
|
!ERROR: A pure subprogram may not copy the value of 'hpd' because it is an INTENT(IN) dummy argument and has the POINTER component '%p'
|
|
allocate(alloc, source=hpd)
|
|
!ERROR: Actual procedure argument for dummy argument 'p0=' of a PURE procedure must have an explicit interface
|
|
n = f00(extfunc)
|
|
contains
|
|
pure subroutine internal
|
|
type(hasPtr) :: localhp
|
|
!ERROR: Pure subprogram 'internal' may not define 'z' because it is host-associated
|
|
z%a = 0.
|
|
!ERROR: Externally visible object 'z' may not be associated with pointer component 'p' in a pure procedure
|
|
localhp = hasPtr(z%a)
|
|
end subroutine
|
|
end function
|
|
end module
|