6c1ac141d3
To enable Flang testing on Windows, shell scripts have to be ported to Python. In this patch the "test_errors.sh" script is ported to python ("test_errors.py"). The RUN line of existing tests was changed to make use of the python script.
Used python regex in place of awk/sed.
Reviewed By: Meinersbur
Differential Revision: https://reviews.llvm.org/D107575
35 lines
809 B
Fortran
35 lines
809 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Test resolution of type-bound generics.
|
|
|
|
module m1
|
|
type :: t
|
|
contains
|
|
procedure, pass(x) :: add1 => add
|
|
procedure, nopass :: add2 => add
|
|
procedure :: add_real
|
|
generic :: g => add1, add2, add_real
|
|
end type
|
|
contains
|
|
integer function add(x, y)
|
|
class(t), intent(in) :: x, y
|
|
end
|
|
integer function add_real(x, y)
|
|
class(t), intent(in) :: x
|
|
real, intent(in) :: y
|
|
end
|
|
subroutine test1(x, y, z)
|
|
type(t) :: x
|
|
integer :: y
|
|
integer :: z
|
|
!ERROR: No specific procedure of generic 'g' matches the actual arguments
|
|
z = x%g(y)
|
|
end
|
|
subroutine test2(x, y, z)
|
|
type(t) :: x
|
|
real :: y
|
|
integer :: z
|
|
!ERROR: No specific procedure of generic 'g' matches the actual arguments
|
|
z = x%g(x, y)
|
|
end
|
|
end
|