forked from OSchip/llvm-project
96 lines
2.6 KiB
Fortran
96 lines
2.6 KiB
Fortran
! RUN: %S/test_errors.sh %s %t %flang_fc1
|
|
! 15.5.1 procedure reference constraints and restrictions
|
|
|
|
subroutine s01(elem, subr)
|
|
interface
|
|
elemental real function elem(x)
|
|
real, intent(in), value :: x
|
|
end function
|
|
subroutine subr(dummy)
|
|
procedure(sin) :: dummy
|
|
end subroutine
|
|
subroutine badsubr(dummy)
|
|
import :: elem
|
|
!ERROR: A dummy procedure may not be ELEMENTAL
|
|
procedure(elem) :: dummy
|
|
end subroutine
|
|
end interface
|
|
intrinsic :: cos
|
|
call subr(cos) ! not an error
|
|
!ERROR: Non-intrinsic ELEMENTAL procedure 'elem' may not be passed as an actual argument
|
|
call subr(elem) ! C1533
|
|
!ERROR: Actual argument associated with procedure dummy argument 'dummy=' is a null pointer
|
|
call subr(null())
|
|
!ERROR: Actual argument associated with procedure dummy argument 'dummy=' is typeless
|
|
call subr(B"1010")
|
|
end subroutine
|
|
|
|
module m01
|
|
procedure(sin) :: elem01
|
|
interface
|
|
elemental real function elem02(x)
|
|
real, value :: x
|
|
end function
|
|
subroutine callme(f)
|
|
external f
|
|
end subroutine
|
|
end interface
|
|
contains
|
|
elemental real function elem03(x)
|
|
real, value :: x
|
|
end function
|
|
subroutine test
|
|
intrinsic :: cos
|
|
call callme(cos) ! not an error
|
|
!ERROR: Non-intrinsic ELEMENTAL procedure 'elem01' may not be passed as an actual argument
|
|
call callme(elem01) ! C1533
|
|
!ERROR: Non-intrinsic ELEMENTAL procedure 'elem02' may not be passed as an actual argument
|
|
call callme(elem02) ! C1533
|
|
!ERROR: Non-intrinsic ELEMENTAL procedure 'elem03' may not be passed as an actual argument
|
|
call callme(elem03) ! C1533
|
|
!ERROR: Non-intrinsic ELEMENTAL procedure 'elem04' may not be passed as an actual argument
|
|
call callme(elem04) ! C1533
|
|
contains
|
|
elemental real function elem04(x)
|
|
real, value :: x
|
|
end function
|
|
end subroutine
|
|
end module
|
|
|
|
module m02
|
|
type :: t
|
|
integer, pointer :: ptr
|
|
end type
|
|
type(t) :: coarray[*]
|
|
contains
|
|
subroutine callee(x)
|
|
type(t), intent(in) :: x
|
|
end subroutine
|
|
subroutine test
|
|
!ERROR: Coindexed object 'coarray' with POINTER ultimate component '%ptr' cannot be associated with dummy argument 'x='
|
|
call callee(coarray[1]) ! C1537
|
|
end subroutine
|
|
end module
|
|
|
|
program p03
|
|
logical :: l
|
|
call s1(index)
|
|
l = index .eq. 0 ! index is an object entity, not an intrinsic
|
|
call s2(sin)
|
|
!ERROR: Actual argument associated with procedure dummy argument 'p=' is not a procedure
|
|
call s3(cos)
|
|
contains
|
|
subroutine s2(x)
|
|
real :: x
|
|
end
|
|
subroutine s3(p)
|
|
procedure(real) :: p
|
|
end
|
|
end
|
|
|
|
program p04
|
|
implicit none
|
|
!ERROR: No explicit type declared for 'index'
|
|
call s1(index)
|
|
end
|