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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/51605
!
 
contains
  subroutine foo
    BLOCK_NAME: block
    end block BLOCK_NAME
  end subroutine foo
 
  subroutine BLOCK_NAME()
  end subroutine BLOCK_NAME
 
  subroutine bar()
  end subroutine bar
end
 
subroutine test()
contains
  subroutine BLOCK_NAME()
  end subroutine BLOCK_NAME
 
  subroutine foobar()
  end subroutine foobar
 
  subroutine foo
    BLOCK_NAME: block
    end block BLOCK_NAME
  end subroutine foo
 
  subroutine bar()
  end subroutine bar
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/51605`
4			`!`
5
6			`contains`
7			`subroutine foo`
8			`BLOCK_NAME: block`
9			`end block BLOCK_NAME`
10			`end subroutine foo`
11
12			`subroutine BLOCK_NAME()`
13			`end subroutine BLOCK_NAME`
14
15			`subroutine bar()`
16			`end subroutine bar`
17			`end`
18
19			`subroutine test()`
20			`contains`
21			`subroutine BLOCK_NAME()`
22			`end subroutine BLOCK_NAME`
23
24			`subroutine foobar()`
25			`end subroutine foobar`
26
27			`subroutine foo`
28			`BLOCK_NAME: block`
29			`end block BLOCK_NAME`
30			`end subroutine foo`
31
32			`subroutine bar()`
33			`end subroutine bar`
34			`end`

Browse

Tools

Subversion Repositories openrisc

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