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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_call_8.f03] - Blame information for rev 704

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


! { dg-do compile }
 
! PR fortran/37429
! This used to ICE, check that is fixed.
 
MODULE touching
  IMPLICIT NONE
 
  TYPE :: EqnSys33
  CONTAINS
    PROCEDURE, NOPASS :: solve1
  END TYPE EqnSys33
 
CONTAINS
 
  FUNCTION solve1 ()
    IMPLICIT NONE
    REAL :: solve1(3)
    solve1 = 0.0
  END FUNCTION solve1
 
  SUBROUTINE fill_gap ()
    IMPLICIT NONE
    TYPE(EqnSys33) :: sys
    REAL :: res
 
    res = sys%solve1 () ! { dg-error "Incompatible rank" }
  END SUBROUTINE fill_gap
 
END MODULE touching
 
! { dg-final { cleanup-modules "touching" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`! PR fortran/37429`
4			`! This used to ICE, check that is fixed.`
5
6			`MODULE touching`
7			`IMPLICIT NONE`
8
9			`TYPE :: EqnSys33`
10			`CONTAINS`
11			`PROCEDURE, NOPASS :: solve1`
12			`END TYPE EqnSys33`
13
14			`CONTAINS`
15
16			`FUNCTION solve1 ()`
17			`IMPLICIT NONE`
18			`REAL :: solve1(3)`
19			`solve1 = 0.0`
20			`END FUNCTION solve1`
21
22			`SUBROUTINE fill_gap ()`
23			`IMPLICIT NONE`
24			`TYPE(EqnSys33) :: sys`
25			`REAL :: res`
26
27			`res = sys%solve1 () ! { dg-error "Incompatible rank" }`
28			`END SUBROUTINE fill_gap`
29
30			`END MODULE touching`
31
32			`! { dg-final { cleanup-modules "touching" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_call_8.f03] - Blame information for rev 704