/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operation' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
H A D | coarray_collectives_9.f90 | 10 intrinsic co_reduce 29 call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } 47 call co_reduce(val, red_f, result_image=[1,2]) ! { dg-error "must be a scalar" } 48 call co_reduce(val, red_f, result_image=1.0) ! { dg-error "must be INTEGER" } 49 call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } 50 call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } 51 call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } 52 call co_reduce(val, red_f, stat=i, result_image=1) ! OK 53 call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK 55 call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
H A D | coarray_collectives_14.f90 | 9 intrinsic co_reduce 51 call co_reduce(caf, valid) ! OK 52 call co_reduce(caf, dt%valid) ! OK 54 call co_reduce(caf, ext) ! { dg-error "must be a PURE function" } 55 call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" } 56 call co_reduce(caf, sub) ! { dg-error "must be a PURE function" } 57 call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" } 60 call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" } 62 call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" } 84 call co_reduce(c4, char44) ! OK [all …]
|