Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pdt_11.f03 @ 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
34 34
35 if (o_matrix%n == 15 .and. o_matrix%m == 20) then 35 if (o_matrix%n == 15 .and. o_matrix%m == 20) then
36 write(*,*) 'o_matrix OK' 36 write(*,*) 'o_matrix OK'
37 else 37 else
38 write(*,*) 'o_matrix FAIL' 38 write(*,*) 'o_matrix FAIL'
39 call abort 39 STOP 1
40 end if 40 end if
41 41
42 allocate(fdef(n=12)::o_fdef) 42 allocate(fdef(n=12)::o_fdef)
43 43
44 if (o_fdef%n == 12) then 44 if (o_fdef%n == 12) then
45 write(*,*) 'o_fdef OK' 45 write(*,*) 'o_fdef OK'
46 else 46 else
47 write(*,*) 'o_fdef FAIL' 47 write(*,*) 'o_fdef FAIL'
48 call abort 48 STOP 2
49 end if 49 end if
50 end program test 50 end program test
51 51
52 52