OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Changed to STOP 1 in unlimited_polymorphic_31.f03.

Browse Source 
2020-08-23  Paul Thomas  <pault@gcc.gnu.org>

gcc/testsuite/
	PR fortran/92785
	* gfortran.dg/unlimited_polymorphic_31.f03: Change to stop 1.
This commit is contained in:
Paul Thomas 2020-08-23 15:48:36 +01:00
parent 967454a212
commit dbc724d6d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
View File

@ -27,7 +27,7 @@
call write_row ('[iarr(::1)] ', [iarr(::1)]) ! pass in compound constructor, NOT OK
call write_row ('[(i*10,i=1,size(iarr))]', [(i*10,i=1,size(iarr))]) ! pass in constructor, OK
call write_row ('10*[(i,i=1,size(iarr))]', 10*[(i,i=1,size(iarr))]) ! pass in constructor, OK
if (ibad .gt. 0) stop 'FAILED'
if (ibad .gt. 0) stop 1
contains
subroutine write_scalar (g1)
class(*) :: g1