OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
char_length_6.f90
1
! { dg-do run }
2
!
3
program test
4
character(2_8) :: c(2)
5
logical :: l(2)
6
7
c = "aa"
8
l = c .eq. "aa"
9
if (any (.not. l)) call abort
10
11
call foo ([c(1)])
12
l = c .eq. "aa"
13
if (any (.not. l)) call abort
14
15
contains
16
17
subroutine foo (c)
18
character(2) :: c(1)
19
end subroutine foo
20
21
end