URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
! { dg-do compile }
|
! { dg-do compile }
|
! PR fortran/29403
|
! PR fortran/29403
|
program p
|
program p
|
character(len=10) a, b, c
|
character(len=10) a, b, c
|
integer i
|
integer i
|
i = 1
|
i = 1
|
print ('(I0)'), i
|
print ('(I0)'), i
|
a = '(I0,'
|
a = '(I0,'
|
b = 'I2,'
|
b = 'I2,'
|
c = 'I4)'
|
c = 'I4)'
|
call prn(a, b, c, i)
|
call prn(a, b, c, i)
|
print (1,*), i ! { dg-error "in PRINT statement" }
|
print (1,*), i ! { dg-error "in PRINT statement" }
|
end program p
|
end program p
|
|
|
subroutine prn(a, b, c, i)
|
subroutine prn(a, b, c, i)
|
integer i
|
integer i
|
character(len=*) a, b, c
|
character(len=*) a, b, c
|
print (a//(b//c)), i, i, i
|
print (a//(b//c)), i, i, i
|
print trim(a//trim(b//c)), i, i, i
|
print trim(a//trim(b//c)), i, i, i
|
end subroutine prn
|
end subroutine prn
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.