Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/deferred_character_6.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
37 type(vary) :: test_vary 37 type(vary) :: test_vary
38 type(vary) :: my_stuff 38 type(vary) :: my_stuff
39 39
40 40
41 test_vary%string = str 41 test_vary%string = str
42 if (test_vary%string .ne. str) call abort 42 if (test_vary%string .ne. str) STOP 1
43 43
44 ! This previously gave a blank string. 44 ! This previously gave a blank string.
45 my_stuff%string = test_vary 45 my_stuff%string = test_vary
46 if (my_stuff%string .ne. str) call abort 46 if (my_stuff%string .ne. str) STOP 2
47 47
48 test_char = test_vary 48 test_char = test_vary
49 if (test_char .ne. str) call abort 49 if (test_char .ne. str) STOP 3
50 50
51 my_stuff = test_vary 51 my_stuff = test_vary
52 if (my_stuff%string .ne. str) call abort 52 if (my_stuff%string .ne. str) STOP 4
53 53
54 end program thistest 54 end program thistest