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
* gcc.target/i386/mpx/hard-reg-1-nov.c (mpx_test): Use "esp"
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr68154.f90
blob
6415eb0b804809ff058d0f86df8865b19a80c833
1
! { dg-do compile }
2
! PR fortran/68154
3
! Original code contributed by Gerhard Steinmetz
4
! gerhard dot steinmetz dot fortran at t-online dot de
5
program
p
6
character
(
1
),
parameter
::
x1
(
2
) =
'a'
7
character
(*),
parameter
::
x2
(
2
) =
x1
8
character
(*),
parameter
::
x3
(*) =
x1
9
end