source:
CIVL/mods/dev.civl.abc/examples/fortran/f77_standard/arrays_assign_bad.f
| Last change on this file was aad342c, checked in by , 3 years ago | |
|---|---|
|
|
| File size: 216 bytes | |
| Line | |
|---|---|
| 1 | c Fortran 77 |
| 2 | c The size in an assignment must match (except if RHS is a scalar) |
| 3 | program p |
| 4 | implicit none |
| 5 | integer a(6), b(5) |
| 6 | integer stride |
| 7 | b = (/1,2,3,4,5/) |
| 8 | a = b |
| 9 | end program |
Note:
See TracBrowser
for help on using the repository browser.
