OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR testsuite/51875
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
bounds_check_16.f90
1
! { dg-do compile }
2
! { dg-options "-fcheck=bounds" }
3
!
4
! PR fortran/50815
5
!
6
! Don't check the bounds of deferred-length strings.
7
! gfortran had an ICE before because it did.
8
!
9
SUBROUTINE TEST(VALUE)
10
IMPLICIT NONE
11
CHARACTER(LEN=:), ALLOCATABLE :: VALUE
12
CHARACTER(LEN=128) :: VAL
13
VALUE = VAL
14
END SUBROUTINE TEST