File: issue_4901.f90

package info (click to toggle)
lfortran 0.60.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 58,412 kB
  • sloc: cpp: 173,406; f90: 80,491; python: 17,586; ansic: 9,610; yacc: 2,356; sh: 1,401; fortran: 895; makefile: 37; javascript: 15
file content (11 lines) | stat: -rw-r--r-- 252 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
program linetest
  character(80) :: line
  write(line(1:3), '(I3)') 666
  
  if (line(1:3) /= "666") then
    write(*, *) "Test Failed: Expected '666', got '", line(1:3), "'"
    error stop 1
  end if
  
  write(*, '(A)') line(1:3)
end program linetest