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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
alloc_comp_constraint_7.f90
blob
35b8e1f029f3c910bd7751b8c51d765d2339758d
1
! { dg-do compile }
2
! { dg-options -std=f95 }
3
! Check that we don't allow types with allocatable
4
program
main
5
6
type
::
foo
7
integer
::
k
8
integer
,
allocatable
::
x
(:)
! { dg-error "Fortran 2003: ALLOCATABLE" }
9
end type
foo
10
11
type
::
bar
12
type
(
foo
) ::
x
13
end type
bar
14
15
type
(
foo
) ::
a
16
type
(
bar
) ::
b
17
namelist
/
blah
/
a
18
19
end program
main