File: arrays_reshape_29.f90

package info (click to toggle)
lfortran 0.58.0-4
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 54,512 kB
  • sloc: cpp: 162,179; f90: 68,251; python: 17,476; ansic: 6,278; yacc: 2,334; sh: 1,317; fortran: 892; makefile: 33; javascript: 15
file content (12 lines) | stat: -rw-r--r-- 451 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
program arrays_reshape_29
    implicit none
    integer, parameter :: w(4) = [1, 2, 3, 4]
    real, parameter :: x(4) = w
    integer, parameter :: y(4) = x
    real :: b(2, 2) = reshape(y, [2, 2])

    if (b(1,1) /= 1.0) error stop "Mismatch at b(1,1)"
    if (b(2,1) /= 2.0)  error stop "Mismatch at b(2,1)"
    if (b(1,2) /= 3.0) error stop "Mismatch at b(1,2)"
    if (b(2,2) /= 4.0)  error stop "Mismatch at b(2,2)"
end program arrays_reshape_29