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
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
defined_type_1.f90
blob
635727b6630f4360dd7a66fd9b4cb599ded437da
1
!This used to ICE as we chose the wrong type for the
2
! temporary to hold type%var
3
! fortran/18157
4
program
testcase_fold
5
type
::
struct
6
real
::
var
! its julian sec
7
end type
struct
8
type
(
struct
),
dimension
(:),
pointer
::
mystruct
9
mystruct
(:)%
var
=
mystruct
(:)%
var
10
END Program
testcase_fold