Commit d65c65f

committed

Fix issue with Intel compilers

1 parent 0c254ab commit d65c65fCopy full SHA for d65c65f

File tree

1 file changed

-6

lines changed

test/sorting
- test_sorting.fypp

1 file changed

-6

lines changed

`‎test/sorting/test_sorting.fypp`

Lines changed: 6 additions & 6 deletions

Original file line number	Diff line number	Diff line change
`@@ -1626,7 +1626,7 @@ contains`
`1626`	`1626`	`tdiff = 0`
`1627`	`1627`	`do i = 1, repeat`
`1628`	`1628`	`dummy = a`
`1629`		`- adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)`
	`1629`	`+ adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)`
`1630`	`1630`	`call system_clock( t0, rate )`
`1631`	`1631`	`call sort_adjoint( dummy, adjoint, work, iwork )`
`1632`	`1632`	`call system_clock( t1, rate )`
`@@ -1647,7 +1647,7 @@ contains`
`1647`	`1647`
`1648`	`1648`	`!reverse`
`1649`	`1649`	`dummy = a`
`1650`		`- adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)`
	`1650`	`+ adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)`
`1651`	`1651`	`call sort_adjoint( dummy, adjoint, work, iwork, reverse=.true. )`
`1652`	`1652`
`1653`	`1653`	`call verify_reverse_sort( dummy, valid, i )`
`@@ -1696,7 +1696,7 @@ contains`
`1696`	`1696`	`tdiff = 0`
`1697`	`1697`	`do i = 1, repeat`
`1698`	`1698`	`char_dummy = a`
`1699`		`- adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)`
	`1699`	`+ adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)`
`1700`	`1700`	`call system_clock( t0, rate )`
`1701`	`1701`
`1702`	`1702`	`call sort_adjoint( char_dummy, adjoint, char_work, iwork )`
`@@ -1756,7 +1756,7 @@ contains`
`1756`	`1756`	`tdiff = 0`
`1757`	`1757`	`do i = 1, repeat`
`1758`	`1758`	`string_dummy = a`
`1759`		`- adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)`
	`1759`	`+ adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)`
`1760`	`1760`	`call system_clock( t0, rate )`
`1761`	`1761`	`call sort_adjoint( string_dummy, adjoint, string_work, iwork )`
`1762`	`1762`	`call system_clock( t1, rate )`
`@@ -1814,7 +1814,7 @@ contains`
`1814`	`1814`	`tdiff = 0`
`1815`	`1815`	`do i = 1, repeat`
`1816`	`1816`	`bitsetl_dummy = a`
`1817`		`- adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)`
	`1817`	`+ adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)`
`1818`	`1818`	`call system_clock( t0, rate )`
`1819`	`1819`	`call sort_adjoint( bitsetl_dummy, adjoint, bitsetl_work, iwork )`
`1820`	`1820`	`call system_clock( t1, rate )`
`@@ -1874,7 +1874,7 @@ contains`
`1874`	`1874`	`tdiff = 0`
`1875`	`1875`	`do i = 1, repeat`
`1876`	`1876`	`bitset64_dummy = a`
`1877`		`- adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)`
	`1877`	`+ adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)`
`1878`	`1878`	`call system_clock( t0, rate )`
`1879`	`1879`	`call sort_adjoint( bitset64_dummy, adjoint, bitset64_work, iwork )`
`1880`	`1880`	`call system_clock( t1, rate )`

0 commit comments

Comments

(0)

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit d65c65f

File tree

1 file changed

1 file changed

`‎test/sorting/test_sorting.fypp`

0 commit comments