Skip to content

Commit 1a79128

Browse files
perazzjalvesz
andauthored
Update example/linalg/example_norm.f90
Co-authored-by: jalvesz <102541118+jalvesz@users.noreply.github.com>
1 parent 91882fa commit 1a79128

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

example/linalg/example_norm.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@ program example_norm
3333
print *, 'minval(||a(:,i)||) = ',norm(a, '-inf', dim=1) ! 1.00000000 0.00000000 3.00000000
3434

3535
! Catch Error:
36-
! [norm] returned Value Error: dimension 4 is out of rank for shape(a)= [3 3]
36+
! [norm] returned Value Error: dimension 4 is out of rank for shape(a)= [3, 3]
3737
print *, 'invalid: ',norm(a,'inf', dim=4, err=err)
3838
print *, 'error = ',err%print()
3939

0 commit comments

Comments
 (0)