intrinsics_showcase

Compact showcase for array and string intrinsics.

program main {
    int32 ai[4] = [2, 3, 4, 5]
    real32 af[2, 3] = [[1.5, -2.0, 3.0], [0.5, 4.0, -1.0]]
    bool mask[4] = [true, false, true, true]

    print(sum(ai))
    print(product(ai))
    print(maxval(af, 0))
    print(minloc(af, 1))
    print(all(mask))
    print(any(mask))
    print(count(mask))
    print(lbound(af), ubound(af))
    print(adjustl("  tgfortran  "))
    print(scan("abracadabra", "cd"))
    print(verify("aaab", "a"))
}