diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/transpose_3.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/transpose_3.f03 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/transpose_3.f03 b/gcc/testsuite/gfortran.dg/transpose_3.f03 new file mode 100644 index 000000000..269db491d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/transpose_3.f03 @@ -0,0 +1,10 @@ +! { dg-do run } +! Transformational intrinsic TRANSPOSE as initialization expression. + + INTEGER, PARAMETER :: n = 10 + INTEGER, PARAMETER :: a(n,1) = RESHAPE([ (i, i = 1, n) ], [n, 1]) + INTEGER, PARAMETER :: b(1,n) = TRANSPOSE(a) + INTEGER, PARAMETER :: c(n,1) = TRANSPOSE(b) + + IF (ANY(c /= a)) CALL abort() +END |