URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_length_6.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do run }
!
program test
  character(2_8) :: c(2)
  logical :: l(2)
 
  c = "aa"
  l = c .eq. "aa"
  if (any (.not. l)) call abort
 
  call foo ([c(1)])
  l = c .eq. "aa"
  if (any (.not. l)) call abort
 
contains
 
  subroutine foo (c)
    character(2) :: c(1)
  end subroutine foo
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_length_6.f90] - Blame information for rev 694