← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Src/fdict/test/tst_type.F90

  • Committer: Rafi Ullah
  • Date: 2017-08-30 14:09:10 UTC
  • mfrom: (611.1.19 trunk)
  • Revision ID: rraffiu@gmail.com-20170830140910-bhu0osuh4d59wn8e
Merged with trunk-630

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/fdict/test/tst_type.F90
1
1
program tst_type
2
2
 
3
3
  use tst_utils
4
 
  use iso_var_str
5
4
  use variable
6
5
 
7
6
  implicit none
59
58
  call assert(associated(b%pa,a%pa), &
60
59
       'Copying type did not work, target')
61
60
 
 
61
  call delete(va)
 
62
  deallocate(a%pa)
 
63
 
62
64
end program tst_type