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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! From PR 33881
  call create_watch_ss(" ")
contains
  subroutine create_watch_actual(name)
    character(len=1) :: name(1)
  end subroutine create_watch_actual
 
  subroutine create_watch_ss(name,clock)
    character(len=*) :: name
    integer, optional :: clock
    if (present(clock)) then
      call create_watch_actual((/name/))
    else
      call create_watch_actual((/name/))
    end if
  end subroutine create_watch_ss
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! From PR 33881`
3			`call create_watch_ss(" ")`
4			`contains`
5			`subroutine create_watch_actual(name)`
6			`character(len=1) :: name(1)`
7			`end subroutine create_watch_actual`
8
9			`subroutine create_watch_ss(name,clock)`
10			`character(len=*) :: name`
11			`integer, optional :: clock`
12			`if (present(clock)) then`
13			`call create_watch_actual((/name/))`
14			`else`
15			`call create_watch_actual((/name/))`
16			`end if`
17			`end subroutine create_watch_ss`
18			`end`

Browse

Tools

Subversion Repositories openrisc

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