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
nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
deferred_type_param_4.f90
blob
160fdf124caee6d507336b3a9fe7c5e4514199b4
1
! { dg-do run }
2
!
3
! PR fortran/51055
4
! PR fortran/49110
5
!
6
!
7
program
test
8
implicit none
9
character
(
len
=:),
allocatable
::
str
10
integer
::
i
11
i
=
5
12
str
=
f
()
13
call
printIt
()
14
i
=
7
15
str
=
repeat
(
'X'
,
i
)
16
call
printIt
()
17
contains
18
function
f
()
19
character
(
len
=
i
) ::
f
20
f
=
'1234567890'
21
end function
f
22
subroutine
printIt
23
! print *, len(str)
24
! print '(3a)', '>',str,'<'
25
if
(
i
==
5
)
then
26
if
(
str
/=
"12345"
.
or
.
len
(
str
) /=
5
)
STOP
1
27
else if
(
i
==
7
)
then
28
if
(
str
/=
"XXXXXXX"
.
or
.
len
(
str
) /=
7
)
STOP
2
29
else
30
STOP
3
31
end if
32
end subroutine
33
end