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
|
|
|