URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [implicit_12.f90] - Rev 305
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
!
! PR fortran/37400
!
module mod
implicit character(len=*,kind=kind('A')) (Q)
parameter(Q1 = '12345678') ! len=8
parameter(Q2 = 'abcdefghijkl') ! len=12
contains
subroutine sub(Q3)
if(len('#'//Q3//'#') /= 15) call abort()
if('#'//Q3//'#' /= '#ABCDEFGHIJKLM#') call abort()
end subroutine sub
end module mod
program startest
use mod
implicit none
if(len('#'//Q1//'#') /= 10) call abort()
if(len('#'//Q2//'#') /= 14) call abort()
if('#'//Q1//'#' /='#12345678#') call abort()
if('#'//Q2//'#' /='#abcdefghijkl#') call abort()
call sub('ABCDEFGHIJKLM') ! len=13
end program startest
! { dg-final { cleanup-modules "mod" } }
Go to most recent revision | Compare with Previous | Blame | View Log