24 lines
596 B
Fortran
24 lines
596 B
Fortran
|
! { dg-do compile }
|
||
|
! PR fortran/91649
|
||
|
! Code originally contributed by Gerhard Steinmetz
|
||
|
subroutine p
|
||
|
logical :: back = .true.
|
||
|
integer :: x(1) = findloc([1, 2, 1], '1', back=back) ! { dg-error "must be in type conformance" }
|
||
|
print *, x
|
||
|
end
|
||
|
|
||
|
subroutine q
|
||
|
type t
|
||
|
end type
|
||
|
logical :: back = .false.
|
||
|
integer :: x(1) = findloc([1, 2, 1], t(), back=back) ! { dg-error "must be of intrinsic type" }
|
||
|
print *, x
|
||
|
end
|
||
|
|
||
|
subroutine s
|
||
|
character(4) :: c = '1234'
|
||
|
integer :: x(1) = findloc([1, 2, 1], c, back=.true.) ! { dg-error "must be in type conformance" }
|
||
|
print *, x
|
||
|
end
|
||
|
|