Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
ubsan
/
pr106062.f90
blob: 879a67eb7494c575899b943a5bab6edf6b9f7c5c [
file
] [
log
] [
blame
]
!
PR c
++/
106062
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fsanitize=undefined"
}
call test
(
reshape
((
/ 'a', 'b', 'c', 'd' /
),
(
/ 2, 2 /
)))
contains
subroutine test
(
a
)
character
(*),
dimension
(:,
:)
::
a
if
(
len
(
a
)
.
ne
.
1
)
STOP
end
end