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/] [char_length_10.f90] - Blame information for rev 325

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


! { dg-do compile }
! Checks the fix for PR33241, in which the assumed character
! length of the parameter was never filled in with that of
! the initializer.
!
! Contributed by Victor Prosolin 
!
PROGRAM fptest
  IMPLICIT NONE
  CHARACTER (LEN=*), DIMENSION(1),  PARAMETER :: var  = 'a'
  CALL parsef (var)
contains
  SUBROUTINE parsef (Var)
    IMPLICIT NONE
    CHARACTER (LEN=*), DIMENSION(:), INTENT(in) :: Var
  END SUBROUTINE parsef
END PROGRAM fptest

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! Checks the fix for PR33241, in which the assumed character`
3			`! length of the parameter was never filled in with that of`
4			`! the initializer.`
5			`!`
6			`! Contributed by Victor Prosolin`
7			`!`
8			`PROGRAM fptest`
9			`IMPLICIT NONE`
10			`CHARACTER (LEN=*), DIMENSION(1), PARAMETER :: var = 'a'`
11			`CALL parsef (var)`
12			`contains`
13			`SUBROUTINE parsef (Var)`
14			`IMPLICIT NONE`
15			`CHARACTER (LEN=*), DIMENSION(:), INTENT(in) :: Var`
16			`END SUBROUTINE parsef`
17			`END PROGRAM fptest`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

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