99aa87a5b5
There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634
76 lines
3.3 KiB
Fortran
76 lines
3.3 KiB
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
! 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
|
|
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
|
|
!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)
|
|
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
|