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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-fwhole-program  --param ggc-min-expand=0 --param ggc-min-heapsize=0" }
!
! PR fortran/45087
!
 
module INTS
  interface
    subroutine NEXT
    end subroutine NEXT
    subroutine VALUE()
    end subroutine VALUE
  end interface
end module INTS
 
subroutine NEXT
end subroutine NEXT
 
subroutine VALUE()
  use INTS, only: NEXT
  CALL NEXT
end subroutine VALUE
 
end
 
! { dg-final { cleanup-modules "ints" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fwhole-program --param ggc-min-expand=0 --param ggc-min-heapsize=0" }`
3			`!`
4			`! PR fortran/45087`
5			`!`
6
7			`module INTS`
8			`interface`
9			`subroutine NEXT`
10			`end subroutine NEXT`
11			`subroutine VALUE()`
12			`end subroutine VALUE`
13			`end interface`
14			`end module INTS`
15
16			`subroutine NEXT`
17			`end subroutine NEXT`
18
19			`subroutine VALUE()`
20			`use INTS, only: NEXT`
21			`CALL NEXT`
22			`end subroutine VALUE`
23
24			`end`
25
26			`! { dg-final { cleanup-modules "ints" } }`

Browse

Tools

Subversion Repositories openrisc

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