Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/extends_1.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
41 supervisor%department = "Directorate" 41 supervisor%department = "Directorate"
42 42
43 recruit => entry ("John Smith", 123456, 1, "Bog Hill High School", & 43 recruit => entry ("John Smith", 123456, 1, "Bog Hill High School", &
44 99, "Records", supervisor) 44 99, "Records", supervisor)
45 45
46 if (trim (recruit%name) /= "John Smith") call abort 46 if (trim (recruit%name) /= "John Smith") STOP 1
47 if (recruit%name /= recruit%service%name) call abort 47 if (recruit%name /= recruit%service%name) STOP 2
48 if (recruit%supervisor%ss /= 123455) call abort 48 if (recruit%supervisor%ss /= 123455) STOP 3
49 if (recruit%supervisor%ss /= supervisor%person%ss) call abort 49 if (recruit%supervisor%ss /= supervisor%person%ss) STOP 4
50 50
51 deallocate (supervisor) 51 deallocate (supervisor)
52 deallocate (recruit) 52 deallocate (recruit)
53 contains 53 contains
54 function entry (name, ss, attainment, institution, & 54 function entry (name, ss, attainment, institution, &