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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_35.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-std=f95" }
!
! PR fortran/31818 - accepts namelists with assumed-shape arrays
!
 
subroutine test(cha)
  implicit none
  character(len=10) :: cha(:)
  namelist /z/  cha             ! { dg-error "must not have assumed shape" }
end subroutine test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f95" }`
3			`!`
4			`! PR fortran/31818 - accepts namelists with assumed-shape arrays`
5			`!`
6
7			`subroutine test(cha)`
8			`implicit none`
9			`character(len=10) :: cha(:)`
10			`namelist /z/ cha ! { dg-error "must not have assumed shape" }`
11			`end subroutine test`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_35.f90] - Blame information for rev 384