URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! { dg-options -std=f95 }
|
! { dg-options -std=f95 }
|
! PR35882 Miscounted continuation lines when interspersed with data
|
! PR35882 Miscounted continuation lines when interspersed with data
|
program test_mod
|
program test_mod
|
implicit none
|
implicit none
|
|
|
integer, dimension(50) :: array
|
integer, dimension(50) :: array
|
|
|
array = 1
|
array = 1
|
|
|
print "(a, i8)", &
|
print "(a, i8)", &
|
"Line 1", &
|
"Line 1", &
|
array(2), &
|
array(2), &
|
"Line 3", &
|
"Line 3", &
|
array(4), &
|
array(4), &
|
"Line 5", &
|
"Line 5", &
|
array(6), &
|
array(6), &
|
"Line 7", &
|
"Line 7", &
|
array(8), &
|
array(8), &
|
"Line 9", &
|
"Line 9", &
|
array(10), &
|
array(10), &
|
"Line 11", &
|
"Line 11", &
|
array(12), &
|
array(12), &
|
"Line 13", &
|
"Line 13", &
|
array(14), &
|
array(14), &
|
"Line 15", &
|
"Line 15", &
|
array(16), &
|
array(16), &
|
"Line 17", &
|
"Line 17", &
|
array(18), &
|
array(18), &
|
"Line 19", &
|
"Line 19", &
|
array(20), &
|
array(20), &
|
"Line 21", &
|
"Line 21", &
|
array(22), &
|
array(22), &
|
"Line 23", &
|
"Line 23", &
|
array(24), &
|
array(24), &
|
"Line 25", &
|
"Line 25", &
|
array(26), &
|
array(26), &
|
"Line 27", &
|
"Line 27", &
|
array(28), &
|
array(28), &
|
"Line 29", &
|
"Line 29", &
|
array(30), &
|
array(30), &
|
"Line 31", &
|
"Line 31", &
|
array(32), &
|
array(32), &
|
"Line 33", &
|
"Line 33", &
|
array(34), &
|
array(34), &
|
"Line 35", &
|
"Line 35", &
|
array(36), &
|
array(36), &
|
"Line 37", &
|
"Line 37", &
|
array(38), &
|
array(38), &
|
"Line 39", &
|
"Line 39", &
|
array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
|
array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
|
"Line 41", &
|
"Line 41", &
|
array(42), &
|
array(42), &
|
"Line 43"
|
"Line 43"
|
end program
|
end program
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.