URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_20.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR fortran/34784, in which the intrinsic expression would be
! given the implicit type.
!
! Contributed by Dick Hendrickson 
!
MODULE m
  implicit character(s)
  INTEGER :: I(1) = (/ (SELECTED_INT_KIND(J),J=1,1) /)
END MODULE m
 
MODULE s_TESTS
  IMPLICIT CHARACTER (P)
CONTAINS
  subroutine simple (u,j1)
    optional ::  j1
    if (present (j1)) stop
  end subroutine
END MODULE s_TESTS
 
! { dg-final { cleanup-modules "m s_TESTS" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/34784, in which the intrinsic expression would be`
4			`! given the implicit type.`
5			`!`
6			`! Contributed by Dick Hendrickson`
7			`!`
8			`MODULE m`
9			`implicit character(s)`
10			`INTEGER :: I(1) = (/ (SELECTED_INT_KIND(J),J=1,1) /)`
11			`END MODULE m`
12
13			`MODULE s_TESTS`
14			`IMPLICIT CHARACTER (P)`
15			`CONTAINS`
16			`subroutine simple (u,j1)`
17			`optional :: j1`
18			`if (present (j1)) stop`
19			`end subroutine`
20			`END MODULE s_TESTS`
21
22			`! { dg-final { cleanup-modules "m s_TESTS" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_20.f90] - Blame information for rev 302