20 lines
427 B
Fortran
20 lines
427 B
Fortran
! { dg-do run }
|
|
! { dg-options "-fbounds-check" }
|
|
! { dg-shouldfail "Unequal character lengths" }
|
|
|
|
! PR fortran/38137
|
|
! Test that -fbounds-check detects unequal character lengths to MERGE
|
|
! at runtime.
|
|
|
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
|
|
|
|
subroutine foo(a)
|
|
implicit none
|
|
character(len=*) :: a
|
|
character(len=3) :: b
|
|
print *, merge(a,b,.true.) ! Unequal character lengths
|
|
end subroutine foo
|
|
|
|
call foo("ab")
|
|
end
|