Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associate_23.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! Tests the fix for PR64933 ! ! Contributed by Olivier Marsden <olivier.marsden@ecmwf.int> ! program test_this implicit none character(len = 15) :: char_var, char_var_dim (3) character(len = 80) :: buffer ! Original failing case reported in PR ASSOCIATE(should_work=>char_var) should_work = "test succesful" write (buffer, *) should_work(5:14) END ASSOCIATE if (trim (buffer) .ne. " succesful") STOP 1 ! Found to be failing during debugging ASSOCIATE(should_work=>char_var_dim) should_work = ["test SUCCESFUL", "test_SUCCESFUL", "test.SUCCESFUL"] write (buffer, *) should_work(:)(5:14) END ASSOCIATE if (trim (buffer) .ne. " SUCCESFUL_SUCCESFUL.SUCCESFUL") STOP 2 ! Found to be failing during debugging ASSOCIATE(should_work=>char_var_dim(1:2)) should_work = ["test SUCCESFUL", "test_SUCCESFUL"] write (buffer, *) should_work(:)(5:14) END ASSOCIATE if (trim (buffer) .ne. " SUCCESFUL_SUCCESFUL") STOP 3 end program