File: test_bug_3147733.pro

package info (click to toggle)
gnudatalanguage 0.9.2-4
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 15,212 kB
  • sloc: cpp: 114,857; sh: 11,170; makefile: 362; awk: 18; python: 6; ansic: 4
file content (12 lines) | stat: -rw-r--r-- 371 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
 
pro test_bug_3147733 
  spawn, 'echo "' $
  + '.compile test_bug_3147733.pro ' + string(10b) $
  + 'test_bug_3147733_helper' + string(10b) $
  + '.cont' + string(10b) $
  + '" | ../src/gdl -quiet &>/dev/stdout', out
  foreach i, out do if strpos(i, 'Internal error. ProgNode::Run() called.') ne -1 then exit, status=1
end

pro test_bug_3147733_helper
  print, b + ''
end