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
PR ipa/83051
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
null_9.f90
blob
9afd93801ccedcde0e64d9120e8a31f91fad4199
1
! { dg-do run }
2
3
MODULE
fold_convert_loc_ice
4
IMPLICIT NONE
5
PRIVATE
6
7
TYPE
,
PUBLIC
::
ta
8
PRIVATE
9
INTEGER
::
a_comp
10
END TYPE
ta
11
12
TYPE
,
PUBLIC
::
tb
13
TYPE
(
ta
),
ALLOCATABLE
::
b_comp
14
END TYPE
tb
15
16
PUBLIC
::
proc
17
CONTAINS
18
SUBROUTINE
proc
19
TYPE
(
tb
) ::
b
20
21
b
=
tb
(
null
())
22
if
(
allocated
(
b
%
b_comp
))
call
abort
()
23
END SUBROUTINE
proc
24
END MODULE
fold_convert_loc_ice
25
26
USE
fold_convert_loc_ice
27
28
call
proc
()
29
END
30