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

Subversion Repositories openrisc

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

Go to most recent revision | 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 "with assumed shape in namelist" }
end subroutine test

Line No.	Rev	Author	Line
1	694	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 "with assumed shape in namelist" }`
11			`end subroutine test`

Browse

Tools

Subversion Repositories openrisc

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