We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 106bf23 commit a2dd310Copy full SHA for a2dd310
test/linalg/test_linalg_mnorm.fypp
@@ -66,7 +66,7 @@ module test_linalg_mnorm
66
type(error_type), allocatable, intent(out) :: error
67
68
integer(ilp) :: i,j,k,l,dim1,dim2,dim(2),dim_sizes(2),ptr(${rank}$)
69
- character(3), parameter :: orders(*) = ['1 ','fro','inf']
+ character(3), parameter :: orders(*) = ['1 ','2 ','fro','inf']
70
integer(ilp), parameter :: ndim = ${rank}$
71
integer(ilp), parameter :: n = 2_ilp**ndim
72
integer(ilp), parameter :: dims(*) = [(dim1, dim1=1,ndim)]
0 commit comments