Compiler option to warn about argument declarations of x(1) instead of x(*)

[PierU]

@ivanpribec

subroutine demo1(n,x)
    integer :: n
    real :: x(1)        ! legacy convention, actual argument of length n
    print *, size(x)
    x(1) = 3.0          ! <- potentially a logical error
end subroutine

If n can be zero, it’s up to the developer of demo1 to protect references to x

    if (n>0) x(1) = 3.0          ! <- no more error