repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge aosp-toolchain/gcc/gcc-4_9 changes.
[official-gcc.git]
/
gcc-4_9
/
gcc
/
testsuite
/
gfortran.dg
/
equiv_substr.f90
blob
bad3a3a20e88b542c47e8c208193202bb236a2b0
1
! { dg-do compile }
2
! { dg-options "-std=legacy" }
3
!
4
! PR fortran/34557
5
!
6
! Substrings with space before '(' were not properly parsed.
7
!
8
implicit none
9
character
::
A
(
2
,
2
)*
2
,
B
(
2
)*
3
,
C
*
5
10
equivalence
(
A
(
2
,
1
) (
1
:
1
),
B
(
1
) (
2
:
3
),
C
(
3
:
5
))
11
end